※ 引述《vblee (Joseph)》之銘言：
: ※ 引述《kyrox ()》之銘言：
: : 因為我對VB不熟，我用pseudo code說明概念
: : (不確定要幾行，不過六行應該是有機會)
: : =====================================================
: : "for loop" n=2~100
: ^^
: n得從"8"開始跑吧，
: 不然，按照下列的判別式 n =2、3、5、7的時候會被判為非質數
: 不過這個方法蠻聰明的. GJ!!
: : 若 (n mod 2)*(n mod 3)*(n mod 5)*(n mod 7) 不等於 0
: : 則 記錄此數為質數
: : end of "for loop"
: : =====================================================
Sub homework4()
Dim P(40) As Integer, A As Integer, B As Integer, C As Integer, D As Integer
P(1) = 2
A = 1
B = 3
For D = 1 To A
C = B Mod P(D)
If C = 0 Then GoTo 10
Next D
A = A + 1
P(A) = B
B = B + 1
If B <= 100 Then GoTo 5
Cells(1, 1) = Q
Cells(1, 2) = A
End Sub
這是我自己寫的啊...
可是這樣寫好像有錯....
也沒辦法縮到7行內....
怪了...
喵...大家可以看一下哪裡有錯嗎...
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.162.0.188