2004年9月全国计算机等级考试二级VB笔试试卷(含参考答案)

2004年9月全国计算机等级考试二级VB笔试试卷（考试时间90分钟，满分100分）一、选择题（(1)～(20)每小题2分，(21)～(30)每小题3分，共70分）下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是A)Text1.MaxLength=0B)Text1.Enabled=FlaseC)Text1.Visible=FlaseD)Text1.Width=0(2)以下能在窗体Form1的标题栏中显示“VisualBasic窗体的语句是A)Form1.Name=VisualBasic窗体B)Form1.Title=VisualBasic窗体C)Form1.Caption=VisualBasic窗体D)Form1.Text=VisualBasic窗体”(3)在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。以下能实现上述操作的程序段是A)PrivateSubHscroll1_Change()Text1.Text=HScroll1.ValueEndSubB)PrivateSubHscroll1_Click()Text1.Text=HScroll1.ValueEndSubC)PrivateSubHscroll1_Change()Text1.Text=Hscroll1.CaptionEndSubD)PrivateSubHscroll1_Click()Text1.Text=Hscroll1.CaptionEndSub(4)设菜单中有一个菜单项为Open。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置“Open命令的方式是A)把Caption属性设置为&OpenB)把Caption属性设置为O&penC)把Name属性设置为&OpenD)把Name属性设置为O&pen(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=InputBox(Input)SelectCasexCase1,3Print分支1CaseIs4Print分支2CaseElsePrintElse分支EndSelectEndSub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A)分支1B)分支2C)Else分支D)程序出错(6)以下关于MsgBox的叙述中，错误的是A)MsgBox函数返回一个整数B)通过MsgBox函数可以设置信息框中图标和按钮的类型C)MsgBox语句没有返回值D)MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是A)Timer1.Interval=0.5B)Timer1.Interval=5C)Timer.Interval=50D)Timer1.Interval=500(8)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A)42B)1218C)1230D)46(9)以下关于多重窗体程序的叙述中，错误的是A)用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体B)在多重窗体程序中,各窗体的菜单是彼此独立的C)在多重窗体程序中,可以根据需要指定启动窗体D)对于多重窗体程序,需要单独保存每个窗体(10)以下关于文件的叙述中，错误的是A)顺序文件中的记录一个接一个地顺序存放B)随机文件中记录的长度是随机的C)执行打开文件的命令后,自动生成一个文件指针D)LOF函数返回给文件分配的字节数(11)以下叙述中错误的是A)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定(12)以下合法的VisualBasic标识符是A)ForLoopB)ConstC)9abcD)a#x(13)当一个复选框被选中时，它的Value属性的值是A)3B)2C)1D)0(14)表达式5Mod3+3\5*2的值是A)0B)2C)4D)6(15)设x=4,y=8,z=7，以下表达式的值是xyAnd(Notyz)OrzxA)1B)-1C)TrueD)False(16)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a$=VisualBasicPrintString(3,a$)EndSub程序运行后，单击命令按钮，在窗体上显示的内容是A)VVVB)VisC)sicD)11(17)设有如下程序段：x=2Fori=1To10Step2x=x+iNext运行以上程序后，x的值是A)26B)27C)38D)57(18)以下叙述中错误的是A)在KeyPress事件过程中不能识别键盘的按下与释放B)在KeyPress事件过程中不能识别回车键C)在KeyDown和KeyUp事件过程中,将键盘输入的A和a视作相同的字母D)在KeyDown和KeyUp事件过程中,从大键盘上输入的1和从右侧小键盘上输入的1被视作不同的字符(19)执行如下两条语句，窗体上显示的是a=9.8596PrintFormat(a,$00,00.00)A)0,009.86B)$9.86C)9.86D)$0,009.86(20)在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：PrivateSubCommand1_Click()CommonDialog1.FileName=CommonDialog1.Filter=Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1EndSub对于这个程序，以下叙述中错误的是A)该对话框被设置为“打开”对话框B)在该对话框中指定的默认文件名为空C)该对话框的标题为VBTestD)在该对话框中指定的默认文件类型为文本文件(*.Txt)(21)设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：PrivateSubCommand1_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(22)在窗体上画一个名称为Command1的命令按钮，并编写如下程序：PrivateSubCommand1_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callf1(x,y)Printx,yEndSubPrivateSubf1(ByRefx1AsInteger,y1AsInteger)x1=x1+2y1=y1+2EndSub程序运行后，单击命令按钮，在窗体上显示的内容是A)105B)125C)107D)127(23)设有如下程序OptionBase1PrivateSubCommand1_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数组中元素的个数C)GetArray过程的参数n是按值传送的D)如果输入的数据大于10，则窗体上不显示任何显示(24)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=1ToUBound(a)a(i)=a(i)+i-1NextPrinta(3)EndSub程序运行后，单击命令按钮，则在窗体上显示的内容是A)4B)5C)6D)7(25)阅读程序OptionBase1PrivateSubForm_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(26)在窗体上画一个名称为File1的文件列表框，并编写如下程序：PrivateSubFile1_DblClick()x=Shell(File1.FileName,1)EndSub以下关于该程序的叙述中，错误的是A)x没有实际作用，因此可以将该语句写为：CallShell(File1,FileName,1)B)双击文件列表框中的文件，将触发该事件过程C)要执行的文件的名字通过File1.FileName指定D)File1中显示的是当前驱动器、当前目录下的文件(27)在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。编写如下程序：PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfLabel1.LeftWidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序运行后单击“开始”按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是A)标签的移动方向为自右向左B)单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动C)当标签全部移出窗体后，将从窗体的另一端出现并重新移动D)标签按指定的时间间隔移动(28)执行以下程序段a$=abbacddcbaFori=6To2Step-2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(X&Y&z)