更多"下面的程序运行结果是( )。 Private Sub Form_"的相关试题:
[单项选择]下面程序运行后的输出结果是
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 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
[单项选择]
下面程序运行时,若输入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 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 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
[单项选择]下面的程序运行时,若输入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 a
End Sub
A. 20
B. 10
C. 3
D. 9
[单项选择]下面的程序运行结果是( )。
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( ) 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 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 Command1_Click( )
a=1.5:b=1.5
Call fun(a,b)
Print a,b
End Sub
Private Subfun(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 Command1_Click( )
x=1:y=1
For i=1 To 3
x=x+y:y=y+x
Next i:print x,y
End Sub
A. 6 6
B. 5 8
C. 13 21
D. 34 35
[单项选择]下面程序段的运行结果是( )。 Private Sub Form_Click( ) For I=3 to 1 step-1 Print Spc(10-I); For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub
A. ***** *** *
B. * *** *****
C. * *** *****
D. * *** *****