更多"运行下面程序代码后，变量J的值为______。 Private Su"的相关试题:
[单项选择]运行下面程序代码后，变量J的值为______。 Private Sub Fun （ ） Dim J as Integer J=10 DO J=J+3 Loop While J＜19 End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]运行下面程序代码后，变量J的值为_________。Private Sub Fun（ ） Dim J as Integer J=10 DO J=J+3 Loop While J＜19End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]运行下面程序代码后，变量J的值为 ______。 Private Sub Fun（ ） Dim J as Integer J=10 DO J=J+3 Loop While J＜19End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]运行下面程序代码后，变量J的值为______。Private Sub Full （ ） Dim j as Integer J=10 DO J=J+3 Loop While J<19 End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]下面过程运行之后，变量J的值为( )。 Private Sub Fun（ ） Dim J As Integer J=5 Do J=J * 2
A. 3
B. 10
C. 9
D. 7
[单项选择]下面过程运行之后，则变量J的值为( )。 Private Sub Fun（ ） Dim f AS Integer J-5 Do J=J*2
A. 3
B. 10
C. 9
D. 7
[单项选择]下面过程运行之后，则变量J的值为( )。 Private Sub Fun（ ） Dim J As Integer J=5 Do J=J*2
A. 3
B. 10
C. 9
D. 7
[单项选择]下面过程运行之后，则变量J的值为( )。 Private Sub Fun（ ） Dim J As Integer J=5 Do J=J+2
A. 3
B. 7
C. 9
D. 11
[单项选择]下面程序运行结果是( )。 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
[单项选择]Dim I As Integer，则运行时变量I的初始值是（）。
A. 1
B. 0
C. 2
D. 3
[单项选择]下列程序段的运行结果是( )。 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 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. 天天向上清华大学天上人间程序设计
