资源描述：
《vb程序设计期末试卷及答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、选择题1.VisualBasic中的窗体文件的扩展名是A、.regB、.frmC、.basD、.vbp2.VisualBasic中的模块文件的扩展名是A、.regB、.frmC、.basD、.vbp3.VisualBasic中的工程文件的扩展名是A、.regB、.frmC、.basD、.vbp4.一个对象可以执行的动作和可被对象识别的动作分别称为A、事件、方法B、方法、事件C、属性、方法D、过程、事件5要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，要对下列属性进行设置。A．MaxButtonB．WidthC．MinBu
2、ttonD．BorderStyle6在用菜单编辑器设计菜单时，必需输入的项有＿＿＿＿。A．快捷键B．索引C．标题D．名称8文件号最大可取的值为A255B511C512D2569以下能判断是否到达文件尾的函数是＿＿＿＿ABOFBLOCCLOFDEOF10Visualbasic常见的颜色设置中，表示红色的是AvbblueBvbredCvbblackDvbcyan11当使用line方法画直线后，当前坐标在A（0,0）B直线起点C直线终点D容器的中心12语句circle（500,500），300,8，-6，-3将绘制A圆B椭圆C圆弧D扇形1
3、3坐标度量单位可以通过来改变ADrawstyleBDrawwidthCScaleDScalemode14对象的边框类型由设置ADrawstyleBDrawwidthCBorderstyleDScalemode15以下的属性和方法中可重新定义坐标系ADrawstyleBDrawwidthCScaleDScalemode16执行语句line（1200,1200）——step(1000,500),B后，CurrentX=A2200B1200C1000D170017在下列通用对话框的叙述中，错误的是ACommondialogl.showfo
4、nt显示字体对话框B在打开或另存为对话框中，用户选择的文件名可以通过Filetitle属性返回C在打开或另存为对话框中，用户选择的文件名及其路径可以经Filetitle属性返回D通过对话框可以用来制作和显示帮助对话框填空题1如果要将某个菜单项设计为分隔线，则该菜单的标题应设置为-(减号)。2欲定义一个定长为10的字符串变量Mystr，可写成：DimMystrAsString*103把条件为1£x£5写成VB表达式为：1<=xAndx<=54在菜单编辑器中菜单项前面4个小点的含义是该菜单项为下一级的菜单项程序运行题1.PrivateS
5、ubForm_Click()DimyAsIntegerDoy=InputBox("y=")If(yMod10)+Int(y/10)=10ThenPrintyLoopUntily=0EndSub运行时，单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0，写出运行结果。3755642819程序运行题2.PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimxAsString,cAsStringx=InputBox("x=")n=Len(x)IfnMod2
6、=1Thenc=Mid(x,n2+1,1)Fori=1ToLen(x)2c=Mid(x,Len(x)+1-i,1)+c+Mid(x,i,1)Nextix=cPrintxEndSub运行时，第一次单击Command1后输入“abc”，写出运行结果。第二次单击Command1后输入“abcd”，写出运行结果。cbacdab程序运行题3PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerDima(3,3)AsIntegerForm=1To3Forn=1To3a(m,n)=(m-1)*3+
7、nNextnNextmForm=2To3Forn=1To2Printa(n,m);NextnNextmEndSub写出程序运行后，单击命令按钮，窗体上显示的结果。2536程序运行题4Privatesubform_click()Dima(2,3)asintegerFori=1to2Forj=1to3a(i,j)=2*i-jnextj,iforh=1to3fork=1to2form1.printa(k,h),nextkprintnexthendsub写出程序运行后，单击窗体，form1上的输出结果1302-11程序运行题5PublicF
8、unctionf(masinteger,nasinteger)asintegerDowhilem<>nDowhilem>n:m=m-n:loopDowhilen>m:n=n-m:loopLoopf=mEndfunctionPrivat
