[mini]

如猜謎人所言
要設一個計數器 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