全国计算机等级考试二级VB笔试试题.docx

1、全国计算机等级考试二级VB笔试试题2004年9月全国计算机等级考试二级VB语言笔试试题一、选择题 （(1)(20)每小题2分，(21)(30)每小题3分，共70分下列各题 A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是AText1.MaxLength=0BText1.Enabled=FlaseCText1.Visible=FlaseDText1.Width=0(2)以下能在窗体Form1的标题栏中显示“V

2、isualBasic窗体的语句是AForm1.Name=VisualBasic窗体BForm1.Title=VisualBasic窗体CForm1.Caption=VisualBasic窗体DForm1.Text=VisualBasic窗体”(3)在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。 以下能实现上述操作的程序段是APrivate Sub Hscroll1_Change() Text1.Text=HScroll1.Value End SubBP

3、rivate Sub Hscroll1_Click() Text1.Text=HScroll1.Value End SubCPrivate Sub Hscroll1_Change() Text1.Text=Hscroll1.Caption End SubDPrivate Sub Hscroll1_Click() Text1.Text=Hscroll1.Caption End Sub(4)设菜单中有一个菜单项为Open。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置“Open命令的方式是A把Caption属性设置为&OpenB把Caption属性设

4、置为O&penC把Name属性设置为&OpenD把Name属性设置为O&pen(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(Input) Select Case x Case 1,3 Print 分支 1 Case Is 4 Print 分支 2 Case Else Print Else 分支 End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是A分支1B分支2CElse分支D程序出错(6)以下关于MsgBox的叙述中，错误的是AMsgBox函

5、数返回一个整数B通过MsgBox函数可以设置信息框中图标和按钮的类型CMsgBox语句没有返回值DMsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是ATimer1.Interval=0.5BTimer1.Interval=5CTimer.Interval=50DTimer1.Interval=500(8)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As

6、Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub 程序运行后，连续三次单击Command1按钮后，窗体上显示的是A4 2B12 18C12 30D4 6(9)以下关于多重窗体程序的叙述中，错误的是A用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体B在多重窗体程序中,各窗体的菜单是彼此独立的C在多重窗体程序中,可以根据需要指定启动窗体D对于多重窗体程序, 需要单独保存每个窗体(10)以下关于文件的叙述中，错误的是A顺序文件中的记录一个接一个地顺序存放B随机文件中记录的长度是随机的C执行打开文件的命令后,自动生成一个文件指

7、针DLOF函数返回给文件分配的字节数(11)以下叙述中错误的是A事件过程是响应特定事件的一段程序B不同的对象可以具有相同名称的方法C对象的方法是执行指定操作的过程D对象事件的名称可以由编程者指定(12)以下合法的Visual Basic标识符是AForLoopBConstC9abcDa#x(13)当一个复选框被选中时，它的Value属性的值是A3B2C1D0(14)表达式 5 Mod 3+35*2的值是A0B2C4D6(15)设x=4,y=8,z=7，以下表达式的值是 x z)Or zA1B-1CTrueDFalse(16)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

8、 Private Sub Command1_Click() a$=VisualBasic Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是AVVVBVisCsicD11(17)设有如下程序段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后，x的值是A26B27C38D57(18)以下叙述中错误的是A在KeyPress事件过程中不能识别键盘的按下与释放B在KeyPress事件过程中不能识别回车键C在KeyDown和KeyUp事件过程中,将键盘输入的A和a视作相同的字母D在KeyDown和KeyUp事件过

9、程中,从大键盘上输入的1和从右侧小键盘上输入的1被视作不同的字符(19)执行如下两条语句，窗体上显示的是 a=9.8596 Print Format(a,$00,00.00)A0,009.86B$9.86C9.86D$0,009.86(20)在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click() CommonDialog1.FileName = CommonDialog1.Filter=All file|*.*|(*.DoC|*.Doc|(*.Txt)|*.Txt Co

10、mmonDialog1.FilterIndex=2 CommonDialog1.DialogTitle=VBTest CommonDialog1.Action=1 End Sub 对于这个程序，以下叙述中错误的是A该对话框被设置为“打开”对话框B在该对话框中指定的默认文件名为空C该对话框的标题为VBTestD在该对话框中指定的默认文件类型为文本文件(*.Txt)(21)设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click() Dim a As In

11、teger a=10 Call g(Form2,a) End Sub Private Sub g(f As Form,x As Integer) y=IIf(x10,100,-100) f,Show f.Caption=y End Sub 运行以上程序，正确的结果是AForm1的Caption属性值为100BForm2的Caption属性值为-100CForm1的Caption属性值为-100DForm2的Caption属性值为100(22)在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click() Dim x As Intege

12、r Static y As Integer x=10 y=5 Call f1(x,y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是A10 5B12 5C10 7D12 7(23)设有如下程序 Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox(输入数据) If n10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是A数组b中的偶数被保存在数组c中B程序运行结束后,在窗体上显示的是c数组中元素的个数