一、选择题（(1)～(20)每小题2分，(21)～(30)每小题3分，共70分）
　　
　　下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
　　
　　(1) 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是
　　
　　A) Text1.MaxLength=0 B) Text1.Enabled=Flase
　　
　　C) Text1.Visible=Flase D) 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) Private Sub Hscroll1_Change()
　　
　　Text1.Text=HScroll1.Value
　　
　　End Sub
　　
　　B) Private Sub Hscroll1_Click()
　　
　　Text1.Text=HScroll1.Value
　　
　　End Sub
　　
　　C) Private Sub Hscroll1_Change()
　　
　　Text1.Text=Hscroll1.Caption
　　
　　End Sub
　　
　　D) Private Sub Hscroll1_Click()
　　
　　Text1.Text=Hscroll1.Caption
　　
　　End Sub
　　
　　(4) 设菜单中有一个菜单项为"Open"。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是
　　
　　A) 把Caption属性设置为&Open
　　
　　B) 把Caption属性设置为O&pen
　　
　　C) 把Name属性设置为&Open
　　
　　D) 把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) 分支1 B) 分支2 C) Else分支 D) 程序出错
　　
　　(6) 以下关于MsgBox的叙述中，错误的是
　　
　　A) MsgBox函数返回一个整数
　　
　　B) 通过MsgBox函数可以设置信息框中图标和按钮的类型
　　
　　C) MsgBox语句没有返回值
　　
　　D) MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量
　　
　　(7) 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是
　　
　　A) Timer1.Interval=0.5 B) Timer1.Interval=5
　　
　　C) Timer.Interval=50 D) Timer1.Interval=500
　　
　　(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
　　
　　Private Sub Command1_Click()
　　
　　Static x As Integer
　　
　　Cls
　　
　　For i=1 To 2
　　
　　y=y+x
　　
　　x=x+2
　　
　　Next
　　
　　Print x,y
　　
　　End Sub
　　
　　程序运行后，连续三次单击Command1按钮后，窗体上显示的是
　　
　　A) 4 2 B) 12 18 C) 12 30 D) 4 6
　　
　　(9) 以下关于多重窗体程序的叙述中，错误的是
　　
　　A) 用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体
　　
　　B) 在多重窗体程序中,各窗体的菜单是彼此独立的
　　
　　C) 在多重窗体程序中,可以根据需要指定启动窗体
　　
　　D) 对于多重窗体程序, 需要单独保存每个窗体
　　
　　(10) 以下关于文件的叙述中，错误的是
　　
　　A) 顺序文件中的记录一个接一个地顺序存放
　　
　　B) 随机文件中记录的长度是随机的
　　
　　C) 执行打开文件的命令后,自动生成一个文件指针
　　
　　D) LOF函数返回给文件分配的字节数
　　
　　(11) 以下叙述中错误的是
　　
　　A) 事件过程是响应特定事件的一段程序
　　
　　B) 不同的对象可以具有相同名称的方法
　　
　　C) 对象的方法是执行指定操作的过程
　　
　　D) 对象事件的名称可以由编程者指定
　　
　　(12) 以下合法的Visual Basic标识符是
　　
　　A) ForLoop B) Const C) 9abc D) a#x
　　
　　(13) 当一个复选框被选中时，它的Value属性的值是
　　
　　A) 3 B) 2 C) 1 D) 0
　　
　　(14) 表达式 5 Mod 3+3\5*2的值是
　　
　　A) 0 B) 2 C) 4 D) 6
　　
　　(15) 设x=4,y=8,z=7，以下表达式的值是
　　
　　xz) Or z　　
　　A) 1 B) -1 C) True D) False
　　
　　(16) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
　　
　　Private Sub Command1_Click()
　　
　　a$="VisualBasic"
　　
　　Print String(3,a$)
　　
　　End Sub
　　
　　程序运行后，单击命令按钮，在窗体上显示的内容是
　　
　　A) VVV B) Vis C) sic D) 11
　　
　　(17) 设有如下程序段：
　　
　　x=2
　　
　　For i=1 To 10 Step 2
　　
　　x=x+i
　　
　　Next
　　
　　运行以上程序后，x的值是
　　
　　A) 26 B) 27 C) 38 D) 57
　　
　　(18) 以下叙述中错误的是
　　
　　A) 在KeyPress事件过程中不能识别键盘的按下与释放
　　
　　B) 在KeyPress事件过程中不能识别回车键
　　
　　C) 在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母
　　
　　D) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
　　
　　(19) 执行如下两条语句，窗体上显示的是
　　
　　a=9.8596
　　
　　Print Format(a,"$00,00.00")
　　
　　A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86
　　
　　(20) 在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
　　
　　Private Sub Command1_Click()
　　
　　CommonDialog1.FileName =""
　　
　　CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
　　
　　CommonDialog1.FilterIndex=2
　　
　　CommonDialog1.DialogTitle="VBTest"
　　
　　CommonDialog1.Action=1
　　
　　End Sub
　　
　　对于这个程序，以下叙述中错误的是
　　
　　A) 该对话框被设置为“打开”对话框
　　
　　B) 在该对话框中指定的默认文件名为空
　　
　　C) 该对话框的标题为VBTest
　　
　　D) 在该对话框中指定的默认文件类型为文本文件(*.Txt)
　　
　　(21) 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
　　
　　Private Sub Command1_Click()
　　
　　Dim a As Integer
　　
　　a=10
　　
　　Call g(Form2,a)
　　
　　End Sub
　　
　　Private Sub g(f As Form,x As Integer)
　　
　　y=IIf(x>10,100,-100)
　　
　　f,Show
　　
　　f.Caption=y
　　
　　End Sub
　　
　　运行以上程序，正确的结果是
　　
　　A) Form1的Caption属性值为100
　　
　　B) Form2的Caption属性值为-100
　　
　　C) Form1的Caption属性值为-100
　　
　　D) Form2的Caption属性值为100
　　
　　(22) 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
　　
　　Private Sub Command1_Click()
　　
　　Dim x As Integer
　　
　　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
　　
　　程序运行后，单击命令按钮，在窗体上显示的内容是
　　
　　A) 10 5 B) 12 5 C) 10 7 D) 12 7
　　
　　(23) 设有如下程序
　　
　　Option Base 1
　　
　　Private Sub Command1_Click()
　　
　　Dim a(10) As Integer
　　
　　Dim n As Integer
　　
　　n=InputBox("输入数据")
　　
　　If n<10 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)