假定有如下事件过程： 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 4

B．56 3

C．28 1

D．243 5

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

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

[单选题]假定有如下事件过程： Privte Sub Form_Click0 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_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是( )。A．该过程的功能是弹出一个菜单B．PopForm是在菜单编辑器中定义的弹出式菜单的名称C．参数X、Y指明鼠标的当前位置D．Button=2表示按下的是鼠标左键

[单选题]假定有如下事件过程:Private Sub Form_MouseDown(Button As Integer,Shift As Integer,x As Single)If Button=2 ThenPopupMenu popForm.E．nd IfE．nd Sub则以下描述中错误的是A．该过程的功能是弹出一个菜单B．popForm是在菜单编辑器中定义的弹出式菜单的名称C．参数x、y指明鼠标的当前位置D．Button=2表示按下的是鼠标左键

[单选题]假定有如下事件过程： Private Sub Form_MouseDown(Buaon As Integer，Shift As Integer，x As Single，y_As Single) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是A．该过程的功能是弹出一个菜单B．popForm是在菜单编辑器中定义的弹出式菜单的名称C．参数x、y指明鼠标的当前位置D．Button=2表示按下的是鼠标左键

[单选题]假定有如下事件过程： 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()a=1：b=aD．o Until a>=5x=a*bPrint b；xa=a+bb=b+aLoopE．nd Sub程序运行后，单击窗体，输出结果是A．1 1 2 3B．1 1 2 4C．1 1 3 8D．1 1 3 6