选择题
第1套
1．下列叙述中，错误的是（ ）。
A) 事件可以由用户触发，也可以由系统触发 B) VB应用程序只能以解释方式执行
C) 保存VB程序时，应分别保存窗体及工程文件
D) 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 2．当程序在运行过程中因某种原因中断时，VB进入（ ）模式。
A) 设计 B) 运行 C) 中断 D) 编程 3．下列（ ）是合法的变量名。
A) a_1 B) 4A C) a-b D) string 4．下列正确的赋值语句是（ ）。
A) i+j=10 B) i=0:j=0 C) i=0,j=0 D) i=0;j=0 5．表示x大于0且小于10的表达式是（ ）。
A）0
6．运行后，在窗口上单击鼠标时，窗体不会接收到的事件是（ ）。 A）MouseDown B）MouseUp C）Load D）Click 7．在设计阶段，双击窗体上的某个控件时，打开的窗口是（ ）。
A）工程资源管理器窗口 B）代码窗口 C）工具箱窗口 D）属性窗口 8. 下列语句错误的是（ ）。
A) Cls B) Image1.Cls C) Form1.Cls D) Picture1.Cls 9. 执行语句MsgBox \除数不能为0！\，48，\数据出错\，在弹出的对话框中显示的是（ ）。 A) 感叹号图标 B) 停止图标 C) 问号图标 D) 消息图标 10．有关程序代码窗口说法错误的是（ ）。
A) 在窗口的垂直滚动条的上面，有一个“拆分栏”，利用它可以把窗口分为两部分，每
个窗口显示代码的一部分。
B) 双击控件设计窗体可以打开程序代码窗口
C) 在程序代码窗口左下角有两个按钮，可以选择全模块查看或者是过程查看 D) 在默认情况下，窗体的事件是load
11. 为了使标签Label1有边框，正确的属性设置为（ ）。
A) Label1.BorderStyle=0 B) Label1.BorderStyle=1 C) Label1.backStyle=0 D) Label1.backStyle=1
12．设Picture1.Scaleleft=-200, Picture1.ScaleTop=250, Picture1.Width=500, Picture1.Height=-400, 则Picture1右下角的坐标为（ ）。 A) （300，－150） B) （500，－450）
C) （－200，250） D) （700，650）
13．若要使用Print方法在窗体上打印红色的文字，应设置窗体的（ ）属性。
A）Font B）ForeColor C）Appearance D）FillColor
14．设arr是一个上界为k的一维动态数组。能使arr元素个数增加1，但保留数组中原有数据的语句是（ ）。
A）ReDim arr(K+1) B）ReDim Static arr(K+1) C）Public arr(1 To K+1) D）ReDim Preserve arr(K+1)
15．如果Form1是启动窗体，并且Form1的Load事件过程中有Form2.Show，则程序启动后（ ）。
A）Form1是最后的活动窗体 B）Form2是最后的活动窗体 C）编译错误 D）运行出错 16．复选框不具有（ ）属性。
A）Value B）Checked C）Caption D）Style 17．如果要把单选按钮的标题显示在它的左边，应把（ ）。
A) Alignment属性设置为0 B) Alignment属性设置为1 C) Style属性设置为0 D) Style属性设置为1 18．如果命令按钮的Caption属性包含（ ），则按下Alt+C可激活该按钮。 A) &C B) $C C) #C D) @C
19．在窗体上画一文本框Text1，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是（ ）。
A）Private Sub Text1_Keypress(KeyAscii As Integer) If KeyAscii<65 Or KeyAscii>90 Then MsgBox \请输入大写字母\ KeyAscii＝0 End If End Sub
B）Private Sub Text1_Change()
If Asc(Text1.Text)>64 And Asc(Text1.Text)< 91 Then MsgBox \请输入大写字母\ KeyCode＝0 End If End Sub
C）Private Sub Text1_MouseDown(Buttom As Integer, Shift As Integer _
X As Single,Y As Single)
If Asc(Text1.Text)<65 Or Asc(Text1.Text)>90 Then MsgBox \请输入大写字母\ End If End Sub
D）Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer )
If KeyCode<65 Or KeyCode >90 Then MsgBox \请输入大写字母\ KeyCode＝0 End If End Sub
20. 如果列表框List1中只有一个项目被选中，则语句Debug.Print List1.Selected (List1.ListIndex)执行的结果是（ ）。
A) 在立即窗口中输出被选定的项目的索引值 B) 在立即窗口中输出True C) 在立即窗口中输出False
D) 在立即窗口中输出被选定的项目的文本内容
21．假设时钟控件的Interval属性为500，Enabled属性为True，并且有下面的事件过程，程序运行10秒后变量x的值为（ ）。
Dim x As Integer
Private Sub Timer1.Timer() x=x+10 End Sub
A) 10000 B) 200 C) 5000 D) 以上都不对 22．在程序运行时，按Tab键跳过了一个可以获得焦点的控件（如文本框），这可能是因为（ ）。
A) 该控件的Enabled属性为true B) 该控件的Enabled属性为False C) 该控件的TabStop属性为 true D) 该控件的TabStop属性为False
23．单击Cmd1命令按钮，由Text1文本框获得x的值，根据以下条件计算y的值：当x>0时，y的值为x的自然对数；当x<=0时，y的值为x的绝对值。并将y的值显示在Label1中。以下能正确计算y值的程序是（ ）。
A) x=Val(Text1.Text) B) x=Val(Text1.Text)
y=Abs(x) y=Log(x)
If x>0 Then y=Log(x) If x<=0 Then y= Abs(x)
Label1.Caption=y Label1.Caption=y C) x=Val(Text1.Text) D) x=Val(Text1.Text)
If x<=0 Then y= Log(x) If x>=0 Then y=Abs(x) Else Else
y= Abs(x) y= Log(x) End If End If
Label1.Caption=y Label1.Caption=y
24．运行下列程序，单击窗体后输出的结果是（ ）。
Private Sub Form_Click() s=1
For i=1 To 2 For j=0 To i s=s+s*j
Print s; Spc(2); Next j Print Next i End Sub
A) 1 2 B) 1 2 C) 1 2 D) 1 2 4 12 2 4 2 4 12 1 2 6 25．以下程序段中包含一个错误，出错的原因是（ ）。
x=4
Dim a(x)
For m=4 To 0 Step -1 a(m)=a(m)+1 Next m
A) 第四行，数组元素a(m)下标越界 B) 第四行，不能用循环变量m进行计算 C) 第二行，不能用变量定义数组下标 D) 第四行，循环语句格式不对
26．窗体上有一个命令按钮C1，两次单击C1后程序运行的结果为（ ）。 Dim Z As Integer Sub S() Dim Z Z=Z+2 Print Z End Sub
Private Sub C1_Click() Z=Z+2
Call S Print Z End Sub
A) 第一次为2 2 第二次为4 4 B) 第一次为4 4 第二次为8 8 C) 第一次为2 2 第二次为2 4 D) 第一次为2 4 第二次为4 6 27．使用驱动器列表框的（ ）属性可以返回或设置磁盘驱动器的名称。
A）ChDrive B）Drive C）List D）ListIndex 28．以下叙述错误的是（ ）。
A）窗体对象的ControlBox属性可用于设置窗体上的控制菜单
B）Visual Basic要设置某个对象的属性时，只能通过属性窗口设置
C）当一个工程含有多个窗体时，其中的启动窗体是在“工程属性”对话框中指定的 D）通用对话框是一种ActiveX控件
29．假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“Visual Basic”的事件过程是（ ）。 A) CommonDialog1.DialogTitle=\ CommonDialog1.ShowPrinter
B) CommonDialog1.DialogTitle=\CommonDialog1. ShowSave
C) CommonDialog1.DialogTitle=\ CommonDialog1. ShowFont
D) CommonDialog1.DialogTitle=\ CommonDialog1. ShowColor
30．要从磁盘上读入一个文件名为“c:\\student.txt”顺序文件，正确的是（ ）。
A）F=\ Open F For Input As #1
B）F=\
Open \
C）Open \D）Open c:\\student.txt For Input As #2
第2套
1．下列叙述正确的是（ ）。
A) Visual Basic的事件是由用户定义的
B) Visual Basic的程序是由main()函数开始执行的 C) Visual Basic的程序是以顺序方式执行的
D) 保存一个Visual Basic程序，应分别保存其窗体模块、标准模块和工程文件 2．判断整型变量x是奇数的表达式是（ ）。 A) x Mod 2 <>0 B) x Mod 2 !=0 C) x Mod 2 ≠0 D) x Mod 2 =0
3．用Dim x,y as boolean语句声明变量，下列正确的是（ ）。
A）x和y都是布尔型变量 B）x是整型变量，y是布尔型变量 C）x是变体型变量，y是布尔型变量 D）x和y都是变体型变量 4．使用（ ）方法可隐藏窗体，但不从内存中释放。
A）Hide B）UnLoad C）Show D）Load 5．以下条件语句错误的是（ ）。
A）If X Then Y=Y+1 B）If X=0 Then Y=0
C）If X>Y Then Print Y End If D）If X>0 Then Y=1: Print Y 6．下列关于VB编码规则的叙述，错误的是（ ）。
A）一条语句可以分多行书写 B）可以用“Rem”注释单行语句 C）注释可以放在语句之前 D）可以用“：”作为语句的结束符
7．在“立即”窗口中执行语句：a=InputBox(\请输入姓名：\，\姓名\，\张三\，出现输入对话框后直接选择“确定”按钮后，a的值为（ ）。 A）姓名 B）张三
C）请输入姓名： D）以上都不对 8．MsgBox函数有返回值时的类型是（ ）。
A) 数值型 B) 变体型 C) 字符串型 D) 逻辑型 9．窗体上有一个命令按钮Command1，编写下列事件过程：
Private Sub Command1_Click() x=InputBox(x)
If x^2=16 Then y=x If x^2<16 Then y=1/x If x^2>16 Then y= x^2+1 Print y End Sub
运行时，单击按钮，在输入框中输入6后回车，窗体上将显示（ ）。 A）6 B）0.16666 C）37 D）65 10．执行下列程序段后，x的值是（ ）。
n=5: x=1: i=1