假定有以下程序：

Private Sub Form_Click()

a=1：b=a

D．o Until a>=5

x=a*b

Print b；x

a=a+b

b=b+a

Loop

E．nd Sub

程序运行后，单击窗体，输出结果是

A．1 1 2 3

B．1 1 2 4

C．1 1 3 8

D．1 1 3 6

[单选题]假定有如下的窗体事件过程:Private Sub Form_Click()a$="MicrosoftVisual Basic"b$=Right(a$,5)c$=Mid(a$,1,9)MsgBox a$,34,b$,c$,5E．nd Sub程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是A．Microsoft VisualB．MicrosoftC．BasicD．5

[单选题]假定有如下的窗体事件过程： Private Sub Form_Click() a$="Microsoft Visual Basic" b$=Right(a$，5) c$=Mid(a$，1，9) MsgBoxa$，34，b$，c$，5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是( )。A．Microsoft VisualB．MicrosoftC．BasicD．5

[单选题]假定有如下的窗体事件过程： Private Sub Form_Click() a$="MicrosoftVisual Basic" b$=Right(a$,5) c$=Mid(a$,1,9) MsgBox a$,34,b$,c$,5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是A．Microsoft VisualB．MicrosoftC．BasicD．5

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

[单选题]运行下列程序：Private Sub Form_Click()a = 32: b = 5D．oa = a / 2b = b + 1Loop While b< 10Print aE．nd Sub单击窗体后，则在窗体上显示的结果是()。A．1B．2C．5D．11

[单选题]如下程序： Private Sub Form_Click() a=20:b=20:c=120:d=120 Form1.Line(a,b)-(c,b),,BF End Sub 单击窗体后，窗体上显示的是( )。A．一条直线B．一个矩形空框C．一个填充了颜色的矩形D．无任何图形

[单选题]假定有如下事件过程： 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

[单选题]（ 32 ）设有以下程序：Private Sub Form_Click()X=50F．or i=1 To 4Y=InputBox( “ 请输入一个整数 ” )Y=Val(y)If y Mod 5=0 Thena=a+yx=yE．lsea=a+xE．nd IfNext iPrint aE．nd Sub程序运行后，单击窗体，在输入对话框中依次输入 15 、 24 、 35 、 46 ，输出结果为A． ） 100B． ） 50C． ） 120D． ） 70

[单选题]现有以下程序代码： Private sub Form_click( ) Static s as integer s=s+1 text4, text = str(s) End sub 单击窗体4次后，文本框中的内容是( )。A．4B．0C．2D．以上都不对

[单选题]运行下列程序：Private Sub Form_Click( )a$ = 2b$ = 1C．all abcd(a, b, c$, d$)Print c; dE．nd SubPrivate Sub abcd(x$, y$, z$, s$)z = x + ys = x - yE．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．3 1B．1 3C．211D．显示出错信息