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

admin2014-08-27  35

问题 运行下列程序,在立即窗口显示的结果是
    Private Sub Commando_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

答案D

解析
转载请注明原文地址:https://jikaoti.com/ti/PQV0FFFM
0

最新回复(0)