运行下列程序，在立即窗口显示的结果是 Private Sub Command0_Click() Dim I As Integer.J As Integer For I=2 To 10 For J=2 To 1／2 I

admin2019-02-19 138

问题运行下列程序，在立即窗口显示的结果是
Private Sub Command0_Click()
Dim I As Integer.J As Integer
For I=2 To 10
For J=2 To 1／2
IfI 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