更多"下面过程运行之后，则变量J的值为( )。 Private Sub "的相关试题:
[单项选择]下面过程运行之后，变量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. 10
C. 9
D. 7
[单项选择]运行下面程序代码后，变量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＜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
[单项选择]下面程序段，运行后的结果是 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 As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。
A. 81 4
B. 56 3
C. 28 1
D. 243 5
[单项选择]有如下事件过程：
Private Sub Command1_Click( )
Dim m AS Integer，n AS Integer
m=2：n=1
Print "m="；m；"n="；n
Call TOD(m，n)
Print "m="；m；"n="；n
End Sub
Sub TOD(x，y)
x=x^2
y=y^3
End Sub
程序运行后，输出的结果为( )。
[单项选择]下列程序运行时输出的结果是 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 Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m&"*"：n=n &"#" Print x，y，m，n End Sub 程序运行后，输出的结果是
A. 1 1 * # 1 1 * #
B. 1 1 * # 1 2 * #
C. 1 1 * # 1 1 * ##
D. 1 1 * # 1 2 * ##
