更多"下列程序运行时输出的结果是 Private Sub Form_Cli"的相关试题:
[单项选择]下列程序运行时输出的结果是 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. 天天向上清华大学天上人间程序设计
[单项选择]下列程序运行时输出的结果是 Option Base 1
Private Sub Form_Click（ ）
Dim x(10) As Integer，y(5) As Integer
For i=1 to 10
x(i) =10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
[单项选择]下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click（ ） Dimx(10) ForI=1 to 10 x(i)=10-I+1 Next I ForI=10 to 1 step-2 Printx(i)； NextI End Sub
A. 1 3579
B. 975 3 1
C. 1234567 89 10
D. 1098765432 1
[单项选择]下列程序运行时输出的结果是( )。 Private Sub Form_Click（ ） Dima a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)="天"then print a(i)； nextI End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
[单项选择]
下面程序运行时，若输入395，则输出结果是（）
Private Sub Comand1_Click（ ）
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x/100,(x Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]以下程序运行时，输入3和4后输出的结果是______。 Private Sub Command1_Click（ ） a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End Sub
A. 3+4
B. 7
C. 34
D. 12
[单项选择]下列程序运行时，两次单击窗体后，显示的结果是( )。 Private Sub Form_Click（ ） Dim b As Integer Static c As Integer b=b+2 c=c+2 Print "b="；b;"c=";c End Sub
A. b=2 c=2 b=2 c=2
B. b=2 c=2 b=4 c=4
C. b=2 c=2 b=2 c=4
D. b=2 c=2 b=4 c=2
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click（ ） Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]以下程序的输出结果是( )。 Dim varl Dim var2 Dim var3 varl＝"HellO" var2＝"World!" var3=varl & " " & var2 varl＝10 var2＝20 NsgBox varl＋var2
A. Hello world!
B. 30
C. 1020
D. Hello world!
[单项选择]以下程序的输出结果是( )。 Dim var1 Dim var2 Dim var3 var1 = "Hello" var2 = "World !" var3 = var1&" "&var2 var1 = 10 var2 = 20 MsgBox var1 + var2
A. Hello World! 30
B. 30
C. 102
D. Hello World!
[单项选择]以下程序的输出结果是( )。 Dim varl Dim var2 Dim var3 varl="Hello" var2="World!" var3=varl & " " & var2 varl=10 var2=20 MSgBox var l+var2
A. Hello World!
B. 30
C. 1020
D. Hello World!
[单项选择]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click（ ） Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B) Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End Sub
A. 30 50
B. 30 30
C. 20 20
D. 10 20
[单项选择]
若看到程序中有以下事件过程，则可以肯定的是，当程序运行时（）
Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)
Print “VB Program”
End Sub
A. 用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B. 用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C. 用鼠标左键单击名称为“MouseDown”的控件时，执行此过程
D. 用鼠标左键或右键单击名称为“Click”的控件时，执行此过程
[单项选择]下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(a) t=t * a(i) Next i Tof=t End Function
A. t=18
B. t=24
C. t=30
D. t=32
