Private Sub Form_Click() '点击窗体运行
Dim x As Integer, y As Integer
For x = 500 To 1000 '500到1000之间
For y = 2 To Sqr(x) '如果这个数能被2到自己的平方根整除，
If x Mod y = 0 Then Exit For '就说明不是素数，强行退出循环
Next y
If y > Sqr(x) Then '如果循环是正常结束的，
Print x; '则这个数就是素数，那么输出这个数
If CurrentX > ScaleWidth Then Print '如果已超出窗体边沿就换行
End If
Next x
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024