问题详情

运行下列程序，在立即窗口显示的结果是()。
PrivateSub Command0_Click()
Dim I AsInteger，J AsInteger
For I=2To 10
For J=2 To1
If I modJ=0 Then Exit For
Next J
IfJ>sqr(I)Then Debug．Print I;
Next I
End Sub
A.1579
B.468
C.3579
D.2357请帮忙给出正确答案和分析，谢谢！