程序阅读（80题）
1、在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click() Dim x As Integer Static y As Integer x=10 y=5
Call f1(x,y) Print x,y End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A) 10 5 B) 12 5 C) 10 7 D) 12 7
2、 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(\ Select Case x Case 1,3
Print \分支 1\ Case Is >4
Print \分支 2\ Case Else
Print \分支 \End Select End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是
A） 分支1 B） 分支2 C） Else分支 D) 程序出错 3、执行下列程序段后，输出的结果是 For k1=0 To 4 y=20
For k2=0 To 3 y=10
For k3=0 To 2 y=y + 10 Next k3 Next k2 Next k1 Print y
A) 90 B) 60
C) 40
D) 10
4、设有如下过程： Sub ff(x，y，z，) x=y+z End Sub
以下所有参数的虚实结合都是传址方式的调用语句是 A) Call ff(5,7,z) B) Call ff(x,y,z)
C) Call ff(3+x,5+y,z) D) Call ff(x+y,x-y,z)
5、下列程序段的执行结果为 a=1 b=0
Select Case a Case 1
Select Case b Case 0
Print \ Case 1
Print \ End Select Case 2
Print \End Select
A) * *0* * B) * * 1* *
C) * *2* * D) 0
6、下面程序段执行结果为 x=Int(Rnd() + 4) Select Case x Case 5
Print \ Case 4
Print \ Case 3
Print \ Case Else
Print \End Select
A) excellent B) good
C) pass D) fail
7、下列程序段的执行结果为 a=6
For k=1 To 0 a=a + k Next k Print k; a
A) -1 6 B) -1 16
C) 1 6 D) 11 21
8、下列程序段的执行结果为 a=1 b=1
For I=1 To 3 f=a + b a=b b=f
Print f; Next I
A) 2 3 6 B) 2 3 5
C) 2 3 4 D) 2 2 8
9、单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer, y As Integer x=12: y=32
Call PCS(x, y) Print x; y End Sub
Public Sub PCS(ByVal n As Integer, ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
A) 12 32 B) 2 32
C) 2 3 D) 12 3
10、单击一次命令按钮后，下列程序的执行结果是 Private Sub Command1_Click() s=P(1) + P(2) + P(3) + P(4) Print s End Sub
Public Function P(N As Integer)
Static Sum For i=1 To N Sum=Sum + i Next i P=Sum End Function
A) 15 B) 25
C) 35 D) 45
11、下列程序的执行结果为
Private Sub Command1_Click() Dim s1 As String, s2 As String s1=\
Call Invert(s1, s2) Print s2 End Sub
Private Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As String i=Len(xstr) Do While i >=1
tempstr=tempstr + Mid(xstr, i, 1) i=i - 1 Loop
ystr=tempstr End Sub
A) fedcba B) abcdef
C) afbecd D) defabc
12、阅读下列程序：
Private Sub Command1_Click() Dim i As Integer, k As Integer k=2
For i=1 To 3 Print H(k) ; Next i End Sub
Function H(j As Integer) a=0
Static b a=a + 1 b=b + 1 H=a*b + j
End Function
程序运行后，单击命令按钮输出结果是 A) 2 3 4 B) 3 4 5
C) 5 6 7 D) 3 5 6
13、执行下列程序段后，输出的结果是 For k1=0 To 4 y=20
For k2=0 To 3 y=10
For k3=0 To 2 y=y + 10 Next k3 Next k2 Next k1 Print y
A) 90 B) 60
C) 40 D) 10
14、下列程序段的执行结果为 a=6
For k=1 To 0 a=a + k Next k Print k; a
A) -1 6 B) -1 16
C) 1 6 D) 11 21
15、下列程序段的执行结果为 a=1 b=1
For I=1 To 3 f=a + b a=b b=f
Print f; Next I
A) 2 3 6 B) 2 3 5
C) 2 3 4 D) 2 2 8