Private Sub Form_Click()
For i = 2 To 1000
If isSuShu(i) Then f = f + 1: Print i,
If f = 5 Then f = 0: Print
Next
End Sub
Private Function isSuShu(n) As Boolean
For i = 2 To n - 1
If n Mod i = 0 Then isSuShu = False: Exit For
Next i
If i > n - 1 Then isSuShu = True
End Function
请采纳
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024