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
If test = 0 Then k = k + 1
Next i
Debug.Print gSu(k)
End Sub
這是我要來求1到100的質數...請各位高手指點一下!!!
問題是:在即時運算視窗都沒東西印出來...我看過這個程式粉多次了
還是找不出原因!!!
arrow
arrow
    全站熱搜

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