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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/06/30 21:38:51
VB找出1000以内所有质数的算法VB找出1000以内所有质数的算法VB找出1000以内所有质数的算法PrivateSubCommand1_Click()Fori=2To1000Forj=2ToiIf

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

VB 找出1000以内所有质数的算法
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