VB考试题目

1一、选择题(1)以下能在窗体Form1的标题栏中显示“VisualBasic窗体的语句是CA)Form1.Name=VisualBasic窗体B)Form1.Title=VisualBasic窗体C)Form1.Caption=VisualBasic窗体D)Form1.Text=VisualBasic窗体”(2)设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：BA)text1.maxlength=0B)text1.enabled=flaseC)text1.visible=flaseD)text1.width=0(3)在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：A以下能实现上述操作的程序段是A)PrivateSubHScroll_Change()Text1.Text=HScroll1.ValueEndSubB)PrivateSubHScroll_Click()Text1.Text=HScroll1.ValueEndSubC)PrivateSubHScroll_Change()Text1.Text=HScroll.CaptionD)PrivateSubHScroll_Click()Text1.Text=HScroll.CaptionEndSub(4)设菜单中有一个菜单项为Open。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置“Open命令的方式是AA)把Caption属性设置为&OpenB)把Caption属性设置为O&pen2C)把Name属性设置为&OpenD)把Name属性设置为O&pen(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：CPrivateSubCommand1_Click()x=InputBox(Input)SelectCasexCase1,3Print分支1CaseIs4Print分支2CaseElsePrintElse分支EndSelectEndSub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A）分支1B）分支2C）Else分支D)程序出错(6)以下关于MsgBox的叙述中，错误的是DA）MsgBox函数返回一个整数B)通过MsgBox函数可以设置信息框中图标和按钮的类型C)MsgBox语句没有返回值D)MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是DA）Timer1.InterVal=0.5B)Timer1.Interval=5C)Timer.Interval=50D)Timer1.Interval=500(8)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BPrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub3程序运行后，连续三次单击Command1按钮后，窗体上显示的是A)42B)1218C)1230D)46(9)以下关于多重窗体程序的叙述中，错误的是AA)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B）在多重窗体程序中，各窗体的菜单是彼此独立的C）在多重窗体程序中，可以根据需要指定启动窗体D）对于多重窗体程序中，而且单独保存每个窗体(10)以下叙述中错误的是DA）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定(11)以下合法的VisualBasic标识符是AA)ForLoopB)ConstC)9abcD)a#x(12)当一个复选框被选中时，它的Value属性的值是CA)3B)2C)1D)0(13)表达式5Mod3+3\5*2的值是BA)0B)2C)4D)6(14)设x=4,y=8,z=7，以下表达式的值是DxyAnd(Notyz)OrzxA)1B)-1C)TrueD)False(15)设有如下程序段：Bx=2Fori=1To10Step2x=x+iNext运行以上程序后，x的值是A)26B)27C)38D)57(16)以下叙述中错误的是BA)在KeyPress事件过程中不能识别键盘的按下与释放B)在KeyPress事件过程中不能识别回车键C)在KeyDown和KeyUp事件过程中，将键盘输入的A和a视作相同的字母D)在KeyDown和KeyUp事件过程中，从大键盘上输入的1和从右侧小键盘上输入的1被视作不同的4字符(17)执行如下两条语句，窗体上显示的是Da=9.8596PrintFormat(a,$00,00.00)A)0,009.86B)$9.86C)9.86D)$0,009.86(18)在窗体上画一个名称为CommandDialog1D的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：PrivateSubCommand1_Click()CommonDialog1.FileName=CommonDialog1.Filter=Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1EndSub对于这个程序，以下叙述中错误的是A）该对话框被设置为“打开”对话框B）在该对话框中指定的默认文件名为空C）该对话框的标题为VBTestD）在该对话框中指定的默认文件类型为文本文件(*.Txt)(19)设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：BPrivateSubCommand1_Click()DimaAsIntegera=10Callg(Form2,a)EndSubPrivateSubg(fAsForm,xAsInteger)y=IIf(x10,100,-100)f,Showf.Caption=yEndSub运行以上程序，正确的结果是A)Form1的Caption属性值为100B)Form2的Caption属性值为-100C)Form1的Caption属性值为-100D)Form2的Caption属性值为100(20)在窗体上画一个名称为Command1的命令按钮，并编写如下程序：DPrivateSubCommand1_Click()5DimxAsIntegerStaticyAsIntegerx=10y=5Callf1(x,y)Printx,yEndSubPrivateSubf1(ByRefx1AsInteger,y1AsInteger)x1=x1+2y1=y1+2EndSub程序运行后，单击命令按钮，在窗体上显示的内容是A)105B)125C)107D)127(21)设有如下程序COptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimnAsIntegern=InputBox(输入数据)Ifn10ThenCallGetArray(a,n)EndIfEndSubPrivateSubGetArray(b()AsInteger,nAsInteger)Dimc(10)AsIntegerj=0Fori=1Tonb(i)=CInt(Rnd()*100)Ifb(i)/2=b(i)\2Thenj=j+1c(j)=b(i)EndIfNextPrintjEndSub以下叙述中错误的是A）数组b中的偶数被保存在数组c中B）程序运行结束后，在窗体上显示的是c数组中元素的个数6C）GetArray过程的参数n是按值传送的D）如果输入的数据大于10，则窗体上不显示任何显示(22)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BOptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=1ToUBound(a)a(i)=a(i)+i-1NextPrinta(3)EndSub程序运行后，单击命令按钮，则在窗体上显示的内容是A)4B)5C)6D)7(23)阅读程序COptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后，单击窗体，输入结果为A）13B）14C）27D）15(24)在窗体上画一个名称为File1的文件列表框，并编写如下程序：APrivateSubFile1_DblClick()x=Shell(File1.FileName,1)EndSub以下关于该程序的叙述中，错误的是A)x没有实际作用，因此可以将该语句写为：CallShell(File1,FileName,1)B)双击文件列表框中的文件，将触发该事件过程C)要执行的文件的名字通过File1.FileName指定7D）File1中显示的是当前驱动器、当前目录下的文件(25)在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。A编写如下程序：PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfLabel1.LeftWidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序运行后，单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是A)标签的移动方向为自右向左B）单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C)当标签全部移出窗体后，将从窗体的另一端出现并重新移动D）标签按指定的时间时隔移动(26)执行以下程序段Ba$=abbacddcbaFori=6To2Step-2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(X&Y&z)Nexti8Printz输出结果为A)ABAB）BBABBAC)ABBABAD)AABAAB(27)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：DOptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,4,5)Sum=0Fori=1To5Sum=sum+a(i)Nextix=Sum/5Fori=1To5Ifa(i)xThenPrinta(i);NextiEndSub程序运行后，单击命令按钮，在窗体上显示的内容是A）12B）123C)345D）45(28)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下：PublicxAsIntegerPublicyAsIntegerSubS1()x=1S2EndSubSubS2()y=10Form1.ShowEndS