更多"下列程序段的运行结果是( )。
Sub sele( )
Di"的相关试题:
[单项选择]下列程序段的运行结果是( )。 Sub sele( ) Dim n As Integer i=21: n=3 Do While i > n i=i-n Loop Print i End Sub
A. 2
B. 4
C. 5
D. 3
[单项选择]下面程序段,运行后的结果是 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( )
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
[单项选择]有如下程序段:Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(a) Next iEnd SubFunction G(a As Integer) b=0 Static c b=b + 1 c=c + 1 G=a + b + cEnd Function运行上面的程序后,单击命令按钮,输出结果为
A. 1 2 3
B. 2 3 4
C. 4 5 6
D. 1 4 6
[单项选择]下面程序段执行的结果是
Dim i As Integer,S As Integer
S=0
For i=1 to 10 step 1
S=S+i
Next i
A. S=0
B. S=10
C. 死循环
D. S=55
[单项选择]下面程序段的运行结果是( )。 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. * *** *****
[单项选择]下列程序段,运行后窗体上输出结果是( )。
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
[单项选择]下列程序运行时输出的结果是 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_