运行下列程序,在立即窗口显示的结果是( )。 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

A.1579

B.468

C.3579

D.2357


相似考题