13问答网 > VB：输出500到1000之间的所有素数。（我需要程序的注释，谢谢）

VB：输出500到1000之间的所有素数。（我需要程序的注释，谢谢）

2025-03-21 11:29:32

推荐回答（1个）

回答1：

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