A．showingB．doingC．expectingD．learning

有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 (a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t\y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B．1 1

C．2

D．1 2

有如下程序： Private Sub Commandl_Click() Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS() Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &"*”：n=n&"#" Print x，y，m，n End Sub 程序运行后，输出的结果是

A．1 1 * #

B．1 1 * #

C．1 1 * # 1 1 * # 1 2 * #

D．1 1 * # 1 1 * ## 1 2 * ##

有如下的程序。 Private Sub Commandl_Click() Dim k As Integer, m As Integer Dim P As Integer k=4: m=1 P=Fun(k, m) : Print P; P = Fun (k, m) : Print P End Sub Private Function Fun(a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i + a + b Fun=m\2 End Function 单击命令按钮后，输出结果为

A．2 2

B．4 4

C．5 5

D．6

有如下程序，运行后输出的是()。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End Sub

A．5

B．20

C．22

D．显示出错信息

下列程序输出的结果为【 】。

Private Sub Commandl_Click()

Dim a As Boolean

a = True

If a Then GoTo 11 Else GoTo 22

11:

Print "VB";

22:

Print "VC"

End Sub

下面程序的输出结果是【 】。

Private Sub Commandl_Click()

Dim a(1 To 20)

Dim i

Fori = 1 To 20

a(i) = i

Next i

For Each i In a()

a(i) = 20

Next i

Print a(2)

End Sub

下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub

A．dcba

B．abdc

C．abcd

D．dabc

有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (A)Next i End Sub Function Gad (a As Integer) b=0 Static c b=b + 1 c= c + 1 Gad= a + b + C End Function 运行上面的程序后，单击命令按钮，输出结果为

A．1 2 3

B．2 3 4

C．4 5 6

D．1 4 6

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(1，3，5，7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后，输出结果为()。

A．135

B．357

C．531

D．753