VB 找出1000以内所有质数的算法

2025-04-09 03:16:41

推荐回答（3个）

回答1：

Private Sub Command1_Click()
For i = 2 To 1000
For j = 2 To i
If i Mod j = 0 Then Exit For
Next j
If j = i Then Print i;
Next i

End Sub

回答2：

Private Sub Command1_Click()
For i = 2 To 1000
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Print i;: k = k + 1: If k Mod 10 = 0 Then Print
Next i
End Sub

回答3：

dim i as integer,j as integer
For i =1 to 1000
For j = 2 To i
If i Mod j = 0 Then
Exit For
Next j
If j = i Then Print i;
Next i
End Sub