(21) 当滚动条位于最左端或最上端时，Value属性被设置为
A) Min
B) Max
C) Max和Min之间
D) Max和Min之外
解析：一般情况下，垂直滚动条的值由上往下递增，最上端代表最小值，最下端代表最大值；水平滚动条的值从左到右递增，最左端代表最小值，最右端代表最大值。因此当滚动条位于最左端或最下端时，Value属性被设置为Min。
(22) 下面的数组声明语句中正确的是
A) Dim gg［1,5］ As String
B) Dim gg［1 To 5,1 To 5］ As String
C) Dim gg(1 To 5) As String
D) Dim gg［1 :5,1: 5］ As String
解析：在默认情况下无论是一维还是二维或更多维的数组其缺省下标都从0开始，但有时为了方便，用户可以自定义数组的上下界，那就得用关键字To来设置。例如：d(1 To 6），其含义就是一个名为d，上界为6，下界为1的数组。
(23) 下列说法正确的是
A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器
B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
C) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
D) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器
解析：在Visual Basic中，因为"菜单编辑器"命令是在"工具"菜单下，所以只有当某个窗体为当前活动窗体时，才能从"工具"菜单中选择"菜单编辑器"选项，打开菜单编辑器。
(24) 下列各选项说法错误的一项是
A) 文件对话框可分为两种，即打开(Open) 文件对话框和保存(Save As) 文件对话框
B) 通用对话框的Name属性的默认值为CommonDialogX，此外，每种对话框都有自己的默认标题
C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件
D) DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性
解析：文件对话框分为两种：即打开对话框和保存对话框，所以选项A）的正确；通用对话框的Name属性的默认值为CommonDialogX，此外，每种对话框都有自己的默认标题，所以选项B）正确；打开文件对话框可以让用户指定一个文件，由程序使用，而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件，所以选项C）正确；除DefaultEXT、DialogTitle属性是打开和保存对话框共有的，还有FileName、FileTitle、Filter、FilterIndex、Flags、InitDir、MaxFileSize、CancelError、HelpCommand、HelpContext和HelpFile属性，都是它们共有的，所以选项D）不正确。
(25) 用InputBox函数设计的对话框，其功能是
A) 只能接收用户输入的数据，但不会返回任何信息
B) 能接收用户输入的数据，并能返回用户输入的信息
C) 既能用于接收用户输入的信息，又能用于输出信息
D) 专门用于输出信息
解析：InputBox函数能接收用户输入的数据，并能返回用户输入的信息，不能用于输出信息。InputBox函数中的Prompt参数是在对话框中显示提示信息，这种提示信息是由用户确定的，不能把它当作输出信息的功能。
(26) 下列程序段的执行结果为
I=4
x=5
Do
I=I + 1
x=x + 2
Loop Until I>=7
Print "I="; I
Print "x="; x
A) I＝4x＝5
B) I＝7x＝15
C) I＝6x＝8
D) I＝7x＝11
解析：此题用的是Do循环结构，其格式为：
Do
语句块］
［Exit Do］
Loop Until 循环条件
此循环由于"先执行后检查"，所以至少执行一次。本题中，程序运行到循环条件I>=7的值为True时才停止。所以当程序结束运行后I＝7，x＝11。
(27) 下列程序段的执行结果为
a=1
b=5
Do
a=a + b
b=b + 1
Loop While a < 10
Print a; b
A) 1 5
B) 12 7
C) a b
D) 10 25
解析：此题比较简单，开始a为1，b为5，执行Do语句，具体运行为：执行a＝a+b，b＝b+1语句后，a为6，b为6。这样运行到a＝12，程序终止循环，此时b＝7。
(28) 下列程序段的执行结果为
a=75
If a > 60 Then I=1
If a > 70 Then I=2
If a > 80 Then I=3
If a < 90 Then I=4
Print "I="; I
A) I＝1
B) I＝2
C) I＝3
D) I＝4
解析：此题为If Then 结构的条件语句，如果a > 60 ，则I = 1；如果a > 70 ，则I = 2；如果a > 80 ，则I = 3；如果 a < 90，则I = 4；本题的条件是a＝75，所以输出结果应该是I = 4。
(29) 有如下事件过程：
Private Sub Command1_Click()
b=10
Do Until b=-1
a=InputBox("请输入a的值")
a=Val(A)
b=InputBox("请输入b的值")
b=Val(b)
a=a * b
Loop
Print a
End Sub
程序运行后，依次输入数值30，20，10，－1，输出结果为
A) 6000
B) －10
C) 200
D) -6000
解析：Do Until-Loop循环执行的规则是：先判断Do语句中的<条件>，若为真，则结束循环；若<条件>为假，则执行循环体。
本程序执行时，先判断条件"b=-1"是否为真，此时b为10，"b＝-1"不成立，执行循环体。a和b分别取得InputBox函数接收到的值为30和20，做乘法后a的值为600。执行Loop后，返回Do语句再判断"b＝-1"是否为真，此时b为20，"b＝-1"不成立，继续执行循环体，a和b再次取得InputBox函数接收到的值为10和-1，做乘法后a的值为-10。执行Loop后，返回到Do语句判断"b＝-1"是否为真，此时b＝-1，"b＝-1"条件成立，结束循环，把a的值打印出来。
(30) 下面程序段执行结果为
x=Int(Rnd() + 3)
Select Case x
Case 5
Print "excellent"
Case 4
Print "good"
Case 3
Print "pass"
Case Else
Print "fail"
End Select
A) excellent
B) good
C) pass
D) fail
解析：本题中可以看到x = Int(Rnd(）+ 3) 语句，其中Rnd用来产生随机数，其值在0～1之间，而在(Rnd(）+3) 前面有Int进行强制转换，所以x为3，执行Print "pass"语句。
希望与更多计算机等级考试的网友交流，请进入计算机等级考试论坛
更多信息请访问：考试吧计算机等级考试栏目
