MKOP08H CSOWP2VE
A.5
B.4
C.3
D.2
第1题
运行下面程序代码后,变量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
第2题
运行下面程序代码后,变量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
第3题
下面过程运行之后,变量J的值为()。 Private Sub Fun() Dim J As Integer J=5 Do J=J * 2
A.3
B.10
C.9
D.7
第4题
下面过程运行之后,则变量J的值为()。 Private Sub Fun() Dim J As Integer J=5 Do J=J*2
A.3
B.10
C.9
D.7
第5题
下面过程运行之后,则变量J的值为()。 Private Sub Fun() Dim J As Integer J=5 Do J=J+2
A.3
B.7
C.9
D.11
第6题
下面过程运行之后,则变量J的值为()。 Private Sub Fun() Dim f AS Integer J-5 Do J=J*2
A.3
B.10
C.9
D.7
第7题
下面过程运行之后,则变量J的值为()。 Private Sub Fun() Dim J As Integer J=5 Do J=J*2
A.3
B.10
C.9
D.7
第8题
B、19
C、20
D、23
第9题
阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j<>k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】
第10题
阅读下列程序。
Option Base 1
Private Sub Form. _Click()
Dim x(3,3)
For j=1 to 3
For k=l to 3
If j=k then x(j,k)=1
If j<>k then x(j,k)=k
Next k
Next i
Call fun(x())
End Sub
Private Sub fun(x())
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!