单选题
运行下列程序，在立即窗口显示的结果是
Private Sub Command0_Click()
Dim I As Integer, J As Integer
For I=2 To 10
For J=2 To I/2
If I mod J=0 Then Exit For
Next J
If J＞sqr(I) Then Debug.Print I;
Next I
End Sub
A、
1 5 7 9
B、
4 6 8
C、
3 5 7 9
D、
2 3 5 7
【正确答案】
D
【答案解析】
[解析] 根据题意，两个For执行的过程中，各变量的值如下所示：
i
i/2
j
j＞sqr(i)
2
1
2
成立
3
1.5
3
成立
4
2
2
不成立
5
2.5
3
成立
6
3
2
不成立
7
3.5
5
成立
8
4
2
不成立
9
4.5
3
不成立
10
5
2
不成立
由上表可知，当i为2、3、5、7时，在立即窗口中显示i的值。
提交答案
关闭