（ 22 ）有如下过程代码：

Sub var_dim()

Static numa As Integer

D．im numb As Integer

numa=numa+2

numb=numb+1

print numa;numb

E．nd Sub

连续 3 次调用 var_dim 过程，第 3 次调用时的输出是

A． ） 2 1

B． ） 2 3

C． ） 6 1

D． ） 6 3

[单选题]有如下过程代码：Sub var_dim()Static numa AS IntegerD．im numb As Integernuma=Duma+2numb=numb+1print numa；mumbE．nd Sub连续3次调用vardim过程，第3次调用时的输出是A．2 1B．2 3C．6 1D．6 3

[单选题]有如下过程代码：Sub var_dim( )Static numa As integerDim numb As Integernuma=numa+2n

[单选题]有如下事件过程：Private Sub Form. Click()D．im n As Integerx=0n=InputBox(”请输入一个整数”)F．or i=1 To iF．or j=1 To ix=x+1Next jNext 1Print xE．nd sub程序运行后，单击窗体，如果在输入对话框中输入5,则在窗体上显示的内容是( )。A．13B．14C．15D．16

[单选题]设有如下过程： Private Sub Form. KeyDpwn(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form. KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为（ ）。A． A AB． A BC

[单选题]有如下程序： 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 3B．2 3 4C．4 5 6D．1 4 6

[单选题]有如下程序。 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 0B．1 1C．2D．1 2

[单选题]设有如下过程： 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)

[单选题]假定有如下事件过程： Private Sub Form_Cilck() Dim x As Integer，n As Integer x=1 n=0 Do While x＜28 X=X*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果为______。A．81 4B．56 3C．28 1D．243 5

[单选题]假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。A．81 4B．56 3C．28 1D．243 5

[单选题]有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A． 12B．30C．24D．18