更多"下列程序的运行结果是( )。 Private Sub Command"的相关试题:
[单项选择]下面程序运行后的输出结果是
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
[单项选择]下列程序运行后的输出结果是
Private Sub Command1_Click（ ）
For k=3 To 1 Step-1
x=String(k，"*")
Print x
Next
End Sub
[单项选择]下列程序运行时输出的结果是
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. 天天向上清华大学天上人间程序设计
[单项选择]下面程序运行结果是( )。
Private Sub Form_Click（ ）
Dim x As Single,y As Single
x=InputBox("请输入数据25"):y=InputBox("请输入数据10")
Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10")
End Sub
A. _35_2510
B. 25102510
C. _35_35_
D. 2510_35_
[单项选择]下列程序运行时输出的结果是( )。
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
[单项选择]下面的程序运行时，若输入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
[单项选择]下面的程序运行结果是( )。
Private Sub Form_Click（ ）
i=0
Do
i=i+1
if i＞10 then Exit Do
Loop Until i＜10
Print i
End Sub
A. 0
B. 1
C. 10
D. 11
[单项选择]下面的程序运行结果是( )。
Private Sub Form_Click（ ）
I=0
DoUntil0
i=i+1
if i＞10 then Exit Do
Loop
Printi
End Sub
A. 0
B. 10
C. 11
D. 出错
[单项选择]下列程序运行时输出的结果是( )。
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. 天天向上清华大学天上人间程序设计
[单项选择]下列程序的运行结果是( )。
Private Sub Command1_Click（ ）
a=1.5
b=1.5
Call fun(a，b)
Print a，b
End Sub
Private Sub fun(x，y)
x=y*y
y=y+x
End Sub
A. 2.25 3.75
B. 1.5 2.25
C. 1.5 0.75
D. 0.75 1.5
[单项选择]下列程序的运行结果是( )。
PriVate Sub Form_CUCk（ ）
Dimk As Integ＜er
n=5
m=1
k=1
Do
m=m+2
k=k+1
Loop Until k＞n
Printm
End Sub
A. 1
B. 12
C. 11
D. 32
[单项选择]下列程序运行后在立即窗口输出结果是( )。
Private Sub Form_Click（ ）
x="a":y="b"
z=1:u=2
Debug. Print x; y, z; u
Debug. Print z; x, y; u
End Sub
A. a b 1 2
B. a b 1 2
C. a b 1 2
D. a b 1 2
[单项选择]以下程序运行后输出的结果是 ______。
Option Base 1
Private Sub Form_Click（ ）
Dim A(20)
For K=1 To 20
A(K)=K^2
Next K
Print A(K)
End Sub
A. 20
B. 441
C. 400
D. 出错信息
