更多"假定有如下事件过程： Private Sub Form Click（"的相关试题:
[单项选择]假定有如下事件过程：
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 4
B. 56 3
C. 28 1
D. 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. 12
B. 30
C. 24
D. 18
[单项选择]假定有如下的窗体事件过程： Private Sub Form_Click( ) a$="Microsoft Visual Basic" b$=Right(a$，5) c$=Mid(a$，1，9) Msg Box aS，34，b$，c$，5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是
A. Microsoft Visual
B. Microsoft
C. Basic
D. 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 Visual
B. Microsoft
C. Basic
D. 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 Visual
B. Microsoft
C. Basic
D. 5
[单项选择]假定有如下的窗体事件过程：
Private Sub Form_Click（ ）
a$="Microsoft Visual Basic"
b$=Right(a$，5)
c$=Mid(a$，1，9)
MsgBox a$，34，b$，c$，5
End Sub
程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是
A. Microsoft Visual
B. Microsoft
C. Basic
D. 5
[单项选择]阅读如下程序： Private Sub Form_Click（ ） Dim num As Integer，digit As Integer num=InputBox("输入数据") Do While num ＜＞ 0 digit=num Mod 10 num=num/10 Print digit； Loop End Sub 程序运行后，如果从键盘上输入12345，则输出的结果为
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5
[单项选择]设有如下程序： Private Sub Form_ Click（ ） Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______ 。。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]有如下程序：
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
EndIf
Next
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]假定有如下事件过程： Privte 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 4
B. 56 3
C. 28 1
D. 243 5
[单项选择]假定有如下的窗体事件过程： Private Sub Command1_Click（ ） a$="Microsoft Visual Basic" b$=Riqht(a$, 5) c$=Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是______。
A. Microsoft Visual
B. Microsoft
C. Basic
D. 5
[单项选择]下列程序运行时输出的结果是 Private Sub Form_Click（ ） Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
