更多"下列程序的运行结果是( )。 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( ) 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. 出错信息
[单项选择]下面的程序运行时,若输入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( ) Dim s As Integer,k As Integer,i As Integer,n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub
A. 6
B. 72
C. 144
D. 432
[单项选择]下面的程序运行结果是( )。
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. 出错