VB程序设计试题及答案（一）
一、单选题
1. 是一种面向B 的编程环境。
(A) 机器(B) 对象
(C) 过程(D) 应用
2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。
(A) =“欢迎使用VB”
(B) ='欢迎使用VB'
(C) =欢迎使用VB
(D) ="欢迎使用VB"
3. 若要使命令按钮不可操作，要对A 属性进行设置。
(A) EnabIed (B)Visible
(C) Backcolor (D)Caption
4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus
(C) KeyPress (D) GotFocus
5. 下面A 是合法的变量名。
(A) X_yz (B) 123ab。(C) integer (D) X-Y
6. 以下关系表达式中，其值为False的是A 。
(A) "ABC">"AbC" (B) "女">"男"
(C) "BASIC"=UCase("basic) (D) "123"<"23"
7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1
(C) x=y=z=1 (D) xyz=1
8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。
(A)递归结构、选择结构、循环结构
(B)选择结构、过程结构、顺序结构
(C)过程结构、输入输出结构、转向结构
(D)选择结构、循环结构、顺序结构
9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l
(B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l
(C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l
(D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l
10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。
(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次
(B) Do While…Loop循环和Do…Loop Until循环可能都不执行
(C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行
(D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次
11.以下B 是正确的For…Next结构。
(A) For x=1 To Step 10 (B) For x=3 To -3 Step -3
… …
Next x Next x
(C) For x=1 To 10 (D) For x=3 to 10 step 3
re: … …
Next x Next y
If i=10 Then GoTO re
12.如下数组声明语句，B 是正确的。
(A) Dim a[3,4] As Integer
(B) Dim a(3,4) As Integer
(C) Dim a(n,n) As Integer
(D) Dim a(3 4) As Integer
13.下列语句中（假定变量n有值），能正确声明可变长数组的是A 。
(A) Dim a( ) As Integer (B) Dim a( ) As Integer
ReDim a(n) ReDim a(n) As String
(C) Dim a( ) As Integer (D) Dim a(10) As Integer
ReDim a(3, 4) ReDim a(n+10)
ReDim Preserve a(4, 4)
14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是C 。
(A) Sub f2(ByVal n%, ByVal m%) (B) Sub f1(n%, ByVal m%)
(C) Sub f1(n%, m%) (D) Sub f1(ByVal n%, m%)
15.设有如下程序段：
Public Sub F1(n%)
…
n=3*n+4
…
End Sub
Private Sub Command1_Click( )
Dim n%, m%
n=3
m=4
…
‘调用F1语句
…
End Sub
则在Command1_Click事件中有效的调用语句是B 。
(A) Call F1(n+m) (B) Call F1(m) (C) Call F1(5) (D) Call F1(m+5)
16.用来设置粗体字的属性是C 。
(A) FontItalic (B) FontName (C) FontBold (D) FontSize
17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D 。
Dim x As Integer
Sub Timer1_Timer( )
For i=1 to 10
x=x+1
Next i
End Sub
