Sub FindPrimes()
Dim i, j As Integer
Dim p As Integer
Dim Primes As String
For i = 2 To 100
For j = 2 To i - 1
If i Mod j = 0 Then
p = 0
Exit For '跳出FOR循环
Else
p = 1
End If
Next j
If p = 1 Then
Primes = Primes & "、" & i
End If
Next i
MsgBox "1 到 100 之间所有质数:" & Primes
End Sub