更多"下面的程序运行时，若输入395，则输出结果是 Private Sub"的相关试题:
[单项选择]
下面程序运行时，若输入395，则输出结果是（）
Private sub command1_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
[单项选择]下面程序运行时，若输入395，则输出结果是( )。
Private Sub Cmd1_Click（ ）
Dim a%
a=InputBox("请输入一个3位整数")
Print a Mod 10,a/100,(a Mod 100)/10
End Sub
A. 5 9 3
B. 3 5 9
C. 5 3 9
D. 3 9 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. 天天向上清华大学天上人间程序设计
[单项选择]下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click（ ） Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub
A. 36
B. 25
C. 1
D. 出错信息
[单项选择]下列程序在运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click（ ）
Dim x(10)
For i=1 To 10
x(i)=10-i+1
Next i
For i=10 To 1 Step-2
Print x(i)
Next i
End Sub
A. 1 3 5 7 9
B. 9 7 5 3 1
C. 1 2 3 4 5 6 7 8 9 10
D. 10 9 8 7 6 5 4 3 2 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. 天天向上清华大学天上人间程序设计
[单项选择]以下程序运行时，输入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. b=2 c=2
C. b=2 c=2
D. b=2 c=2
[单项选择]若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。
Private Sub Click_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print "Visual Basic Program"
End Sub
A. 用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B. 用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C. 用鼠标右键单击名称为“MouseDown”的控件时，执行此过程
D. 用鼠标左键或右键单击名称为“Click”的控件时，执行此过程
[单项选择]下面程序运行后的输出结果是
Private Sub Command1_Click（ ）
For j=1 To 10
If j Mod 3＜＞0 Then a=a+j/3
Next
Print a
End Sub
A. 20
B. 10
C. 3
D. 9
