运行下列程序,在立即窗口显示的结果是( )。 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 SubA.1579B.468C.3579D.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