更多"下面程序运行后的结果是( )。 Private Sub Form_"的相关试题:
[单项选择]下面程序段,运行后的结果是 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
[单项选择]下面程序运行后的输出结果是
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 j = 1 To 10 if j Mod 3 <> 0 then a =a+j/3 Next j Print aEnd 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
A. * * * * * *
B. 1 * 2 * 3 *
C. 3 * 2 * * 1 * * *
D. * * * * * *
[单项选择]下列程序段,运行后窗体上输出结果是( )。
Private Sub Command1_Click( )
a=5:b=4:c=3:d=2
x=3>2*b Or a=c And b<>c Or c>d
Printx
End Sub
A. 1
B. True
C. False
D. 2
[单项选择]下列程序段,运行后窗体上输出结果是( )。
Private Sub Command1_Click( )
a=5:b=4:c=3:d=2
x=3>2*b Or a=c And b<>c Or c>d
Printx
End Sub
A. 1
B. True
C. False
D. 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. 出错信息
[单项选择]下列程序运行后在立即窗口输出结果是( )。 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 1 ab 2
B. a b 1 2 1 a b 2
C. a b 1 2 1 a b 2
D. a b 1 2 1 a b 2
[单项选择]下列程序运行后在立即窗口输出的结果是( )。
Private Sub Form_Click( )
x="a":y="b"
z=1:u=2
Debug.Printx;y,z;u
Debug.Printz;x,y;u
End Sub
[单项选择]下面程序运行结果是( )。 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_