j = j + 1 Loop Until k > 20
A．1 B．2 C．4
D．10
[A]选A [B]选B [C]选C [D]选D 答案: B
第19 题: (单选题, 1 分)
以下 VBA 程序段运行后，变量 j 的值是______。 y = 89
j = \不及格\ Do While y > 60
j = IIf(y < 70, \及格\良好\ y = y - 50 Loop
A．\不及格\ B．\及格\ C．\良好\优秀\[A]选A [B]选B [C]选C [D]选D 答案: C
第20 题: (单选题, 1 分) 以下 VBA 代码程序运行结束后，变量 a 的值是______。 a=0 b=101 Do
b=b-20
优秀\ D．\
a=a+b
Loop While b>80
A．60 B．140 C．142 D．160
[A]选A [B]选B [C]选C [D]选D 答案: C
第21 题: (单选题, 1 分)
以下 VBA 代码程序运行结束后，数组元素 a(12) 的值是______。 Dim a(12) As Long, i As Long i=0
Do Until i>12 a(i)=i^2 - i i=i+1 Loop
A．1 B．128 C．132 D．144 [A]选A [B]选B [C]选C [D]选D 答案: C
第22 题: (单选题, 1 分)
假定有如下的 Function 过程：
Function ppfun(x As Single, y As Single) ppfun=x^3-y^2 End Function
在窗体上添加一个命令按钮（名为 cmd10）,然后编写如下事件过程：
Private Sub cmd10_Click()
Dim a As Single, b As Single a = 5 b = 4
MsgBox ppfun(a,b) mod 50 End Sub
打开窗体运行后，单击命令按钮，消息框中的输出内容是______。
A．50 B．25 C．9 D．109 [A]选A [B]选B [C]选C [D]选D 答案: C
第23 题: (单选题, 1 分)
在窗体上添加一个命令按钮（名为 cmd2）,然后编写如下事件过程： Private Sub cmd2_Click()
Dim pi As Single, n As Integer pi = 3.14
n = Len(Str(pi) & Space(2) & \是本字符串长度\ MsgBox n End Sub
打开窗体运行后，单击命令按钮，消息框中的输出内容是______。
A．11 B．12 C． D．14 [A]选A [B]选B [C]选C [D]选D 答案: D
第24 题: (单选题, 1 分)
13 在窗体上添加一个命令按钮（名为 cmd13）,然后编写如下事件过程： Private Sub cmd13_Click()
Dim x As String, y As String
x = \龙洞华美路中山大学新华学院法学院\ y = \级法学专业学生\
MsgBox Mid(x,6,4) & Right(x,3) & Left(y,9) End Sub
打开窗体运行后，单击命令按钮，消息框中的输出内容是______。 A．龙洞华美路中山大学新华学院法学院2006级法学专业学生 B．中山大学新华学院法学院2006级法学专业学生 C．中山大学法学院2006级法学专业学生 D．中山大学法学院2006级法学专业 [A]选A [B]选B [C]选C [D]选D 答案: D
第25 题: (单选题, 1 分)
下列程序段,建立如图所示的数组d（下标从1开始），填写所缺部分： 1 2 3 4 5 6 2 1 2 3 4 5 3 2 1 2 3 4 4 3 2 1 2 3 5 4 3 2 1 2 6 5 4 3 2 1
Dim d(1 To 6, 1 To 6) For j = 1 To 6
For k = 1 To 6
d(j,k) = Abs( _____ ) + 1 '选答案 Next k Next j
A．j B．j-k+1 C．j-k D．2*j-k
[A]选A [B]选B
[C]选C [D]选D 答案: C
第26 题: (多选题, 1 分)
下面______是合法的变量名。
A．STR-NAME B．Case C．FOR_99 D．abc2006 E．6A [A]选A [B]选B [C]选C [D]选D [E]选E 答案: CD
第27 题: (多选题, 1 分)
在 VBA 中，对于 Sub (或 Function) 过程中的每一个形参,可用于声
明其参数传递方式的关键字包括_______。 A．ByMe B．ByVal C．ByRef D．ByVBA E．BySub [A]选A [B]选B [C]选C [D]选D [E]选E 答案: BC