2007年秋江苏省计算机等级考试二级VB考试真题及答案
2007年秋江苏省计算机等级考试二级VB考试真题及答案
来源：南天计算机更新时间：2008-9-24 关键字：2007年秋江苏省计算机等级考试二级VB考试真题
及答案
第二部分 Visual Basic 程序设计
一、选择题（用答题卡答题，答案依次填在21～30答题号内）21．下列语句中，正确的是 21 。
A. Text1.SetFocus
B. Form1.Clear
C. Label1.SetFocus
D. List1.Cls
22．创建一个名为“文件”的菜单项，使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入 22 。
A. 文件($F)
B. 文件(&F)
C. 文件(#F)
D. 文件(%F)
23．数学表达式的VB算术表达式为 23 。
A. Sin(27) + Sqr(x + Exp3)/(x + y)
B. Sin(27 * 3.14159 / 180) + Sqr(x + Exp(3)) / Abs(x + y)
许晴被谁咬下来一个头是真的吗C. Sin(27 * 3.14159 / 180) + Sqr(x + e ^ 3) / Abs(x + y)
D. Sin(27 * pi / 180) + Sqr(x + Exp(3) / Abs(x + y)
24．以下说法不正确的是 24 。
A. 使用不带关键字Preserve的ReDim语句可以重新定义数组的维数
B. 使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界
C. 使用不带关键字Preserve的ReDim语句可以改变数组的数据类型
D. 使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化
25．下列 25 是合法的变量名。
A. abs
B. -a1
C. cdc d
D. Abc_10
26．要向文件添加数据，正确的文件打开命令是 26 。
A. For Output As #1
B. For Input As #1
C. For Append As #5
D. For Write As #5
27. 以下对数组参数的说明中，错误的是 27 。
A. 在过程中可以用Dim语句对形参数组进行声明
预警级别颜B. 形参数组只能按地址传递
C. 实参为动态数组时，可用ReDim 语句改变对应形参数组的维界
D. 只需把要传递的数组名作为实参，即可调用过程
28．设a = 3，b = 2，c = 1，运行print a > b > c的结果是 28 。
A. True
B. False
C. 1
D. 出错
29．能够将任意一个两位整数X的个位数与十位数对调（例如将78 转换为87）的表达式是 29 。
k歌之王 国语
① Val(Right(X, 1) & Left(X, 1))
② Val(Right(Str(X), 1) & Left(Str(X), 1))
③ Val(Right(CStr(X), 1) & Left(CStr(X), 1))
④ Val(Mid(X, 2, 1) + Mid(X, 1, 1))
A. ③
B. ②③
C. ①④
D. ①③④
30．下列 30 是正确的VB常量。
A. D-6
B. E-6
C. 5D
D. 5E-6
二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）
1．执行下面程序，单击Command1，则窗体上显示的第一行是（1），第二行是（2），第三行是（3）。
Option Explicit
Private Sub Command1_Click()
Dim a As String, i As Integer
Dim x As String, z As String
a = iamstudent
i = InStr(5, a, d)
Do
x = Mid(a, i, 3)
z = Right(x, 1)
z = UCase(x & z)
i = i - 2
Print z
Loop Until i = 1
End Sub
2. 执行以下程序，单击Command1，则在Picture1上显示的第一行
是（4），第二行是
（5），第三行是（6）。
Option Explicit
Private Sub Command1_Click()
Dim A(3, 3) As Integer, i As Integer, j As Integer
Dim k As Integer
i = 3 : j = 2 : A(i, j) = 1 : k = 1
起诉费用
Do Until k > 9
k = k + 1
If i + 1 > 3 And j + 1 <= 3 Then
i = 1 : j = j + 1
ElseIf i + 1 <= 3 And j + 1 > 3 Then
i = i + 1 : j = 1
ElseIf i + 1 > 3 And j + 1 > 3 Then二级VB
i = i - 1
ElseIf i + 1 <= 3 And j + 1 <= 3 And A(i + 1, j + 1) <> 0 Then i = i - 1
Else
i = i + 1 : j = j + 1
End If
A(i, j) = k
Loop
For i = 1 To 3
For j = 1 To 3
Picture1.Print A(i, j)
Next j
Picture1.Print
Next i
End Sub2023黑兔年百年一遇
3. 执行下面的程序，单击Command1，则窗体上第一行显示的是（7），第二行显示的是
（8）。
Option Explicit
Dim x As Integer
Private Sub Command1_Click()
Dim y As Integer
x = 10 : y = 2
Call process(y)