题目内容:
运行下列程序,在立即窗口显示的结果是( )。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
参考答案:
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