C) 5 D) 8
31、执行下面的程序段，x的值为 【7】 。10 Private Sub Command1_Click() For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub
32、下列程序段的执行结果为 a=5
For k=1 To 0 a=a + k Next k Print k; a
A) -1 6 B) -1 16
C) 1 5 D) 11 21
33、下列程序段的执行结果为 a=3 b=1
For I=1 To 3 f=a + b a=b b=f
Print f; Next I
A) 4 3 6 B) 4 5 9
C) 6 3 4 D) 7 2 8
34、下列程序段的执行结果为 I=9 x=5 Do
I=I + 1 x=x + 2
Loop Until I >=7 Print \， Print \
A) I＝4 x＝5 B) I＝7 x＝15
C) I＝6 x＝8 D) I＝10 x＝7
35、以下程序段运行时从键盘上输入字符\，则输出结果为 op$=InputBox(\If op$=\If op$=\Print a
A) 2 B) -2
C) 0 D) +2
36、以下程序段的输出结果为 Dim l, a(10) , p(3) k=5
For i=0 To 10 a(i) =i Next i
For i=0 To 2
p(i) =a(i*(i + 1) ) Next i
For i=0 To 2 k=k + p(i)^2 Next i Print k
A) 20 B) 21
C) 45 D) 32
37、下列程序的执行结果为
Private Sub Command1_Click() Dim x As Integer, y As Integer x=12: y=20
Call Value(x, y) Print x; y End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub
A) 20 12 20 15
B) 12 20 12 25
C) 24 15
12 20
D) 24 12 12 15
38、在窗体上画一个命令按钮，然后编写下列程序 Private Sub Command1_Click() Tcl 2 Tcl 3 Tcl 4 End Sub
Sub Tcl(a As Integer) Static x As Integer x=x + a Print x; End Sub
程序运行后，单击命令按钮，输出结果为 A) 2 3 4 B) 2 5 9
C) 3 5 4 D) 2 4 3
39、下面程序段，运行后的结果是Private Sub Command1_Click() Dim b%(1 To 4) , i%, t# Private Sub Command1_Click() For i=1 To 4 b(i) =i Next i
t=Tof(b() ) Print \End Sub
Function Tof(a() As Integer) Dim t#, i% t=1
For i=2 To UBound(A) t=t * a(i) Next i Tof=t End Function
A) t＝18 B) t＝24
C) t＝30 D) t＝32
40、单击按钮时，以下程序运行后的输出结果是 Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer x=1: y=2: z=3
Call God(x, x, z) Print x; x; z
Call God(x, y, y) Print x; y; y End Sub
Private Sub God(x As Integer, y As Integer, z As Integer) x=3 * z + 1 y=2 * z z=x + y End Sub
A) 6 6 12 7 11 11
B) 8 5 10 5 11 11
C) 9 6 12 9 10 15
D) 8 10 10 5 9 10
41、下列程序段的执行结果为 X=2 Y=5
If X * Y < 1 Then Y=Y - 1 Else Y=-1 Print Y - X > 0
A) True B) False
C) -1 D) 1
42、执行下列程序后，鼠标单击窗体，输出结果为 。 Private Sub Form_Click() Print \End Sub
Private Sub Form_MouseDown(Button As Integer, Shift _ As Integer, X As Single, Y As Single) Print \End Sub
Private Sub Form_MouseUp(Button As Integer, Shift _ As Integer, X As Single, Y As Single) Print \End Sub
A) DownUpClick B) ClickDownUp
C) DownClickUp D) UpDownClick
43、下面程序段的运行结果是
a=1 b=1 Do
a=a + 1 b=b + 1
Loop Until b > 5
Print \A) k＝7 b＝14 B) k＝6 b＝6
C) k＝4 b＝8 D) k＝6 b＝12
44、下列程序段，在运行时最后输出的内容是 a=2 c=1 c=c + a
If c < 10 Then Print c Else
Print \以内的奇数显示完毕\End If
A) 3 B) 7
C) 9 D) 10以内的奇数显示完毕
45、单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer a=2: b=3: c=4
Print P2(c, b, A) End Sub
Private Function P1(x As Integer, y As Integer, z As Integer) P1=2 * x + y + 3 * z End Function
Private Function P2(x As Integer, y As Integer, z As Integer) P2=P1(z, x, y) + x End Function
A) 21 B) 19
C) 17 D) 34
46、单击命令按钮时，下列程序的执行结果是 Private Sub Book(x As Integer) x=x * 2 + 1 If x < 6 Then