更多"下面程序运行结果是( )。 Private Sub Form_Cl"的相关试题:
[单项选择]下面程序运行结果是( )。
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_
[单项选择]下面程序运行后的结果是( )。 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 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 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 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( )
Dim n AS Integer
I =21: n = 3
do while I>n
I=I- n
Loop
Print I
End Sub
在窗体上打印的结果是______。
A. 3
B. 5
C. 6
D. 8
[单项选择]
下面程序运行时,若输入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
[单项选择]下面程序的运行结果是( )。 Private Sub Commandl_Click( ) a=1.5 b=1.5 Callfun(a,b) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End Sub
A. 2.25 1.5
B. 1.5 2.25
C. 2.25 3.75
D. 0.75 1.5
[单项选择]下面的程序运行时,若输入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 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 Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub
A. 3
B. 9
C. 5
D. 6
[单项选择]下面的程序运行结果是( )。
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