|
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！ 請點擊這裡：『註冊成為我們的一份子！』 |
|
|
主題工具 | 顯示模式 |
2007-10-22, 10:27 AM
|
#3 (permalink) |
|
管理版主
 
|
如猜謎人所言
要設一個計數器 a For VB 語法:
Private Sub Command1_Click()
Dim prime_number(1 To 60) As Boolean
Dim i As Integer, j As Integer, a As Integer
For i = 1 To 60
a = 0
For j = 1 To i
If (i Mod j) = 0 Then a = a + 1
If a >= 3 Then Exit For
Next
If a <= 2 Then prime_number(i) = True
Next
For i = 1 To 60
If prime_number(i) = True Then Print i
Next
End Sub
此帖於 2007-10-22 11:07 AM 被 mini 編輯. |
|
送花文章: 2060,
|
|
向 mini 送花的會員:
|
樹形模式