vb中用while 循环判断一个数为素数的程序如何写

发布网友发布时间：2024-10-02 14:32

共1个回答

热心网友时间：2024-10-28 06:25

Private Sub Command2_Click()
  a = CLng(Text1.Text)
  i = 2
While i < a / 2
   If a Mod i = 0 Then GoTo exitwhile
   i = i + 1
Wend
MsgBox "是素数"
Exit Sub
exitwhile:
MsgBox "不是素数"
End Sub
广告：www.pianyiji.com

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com