输出1000以内的所有质数的程序


Private Sub Command1_Click()
 Dim M As Single, I As Single
 J = 0
 For M = 2 To 1000
  If M = 2 Then Print M;
    I = 1
    Do
      I = I + 1
    Loop Until (M Mod I = 0) Or (I = M - 1)
    If M Mod I <> 0 Then 
      Print M;
      J = J + 1
      If J Mod 10 = 0 Then Print
    End If
 Next M
End Sub

“输出1000以内的所有质数的程序”的2个回复

    1. 嗯,谢谢支持哈,这是用VB写的程序哈。你可以先安装一个VB6.0 打开后,写好程序,按界面上的运行按钮或者按键盘上的F5即可运行VB程序哈。

发表评论

电子邮件地址不会被公开。 必填项已用*标注