Option Base 1
Dim gSu(100)
Private Sub main()
k = 1
For i = 1 To 100
For j = 2 To i - 1
test = i Mod j
test = test + test
Next j
If test = 0 Then gSu(k) = i
Debug.Print gSu(k)
If test = 0 Then k = k + 1
Next i
End Sub
印不出東西...執行後即時運算視窗都沒東西!!!
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()