Question

VB编程判断一个正整数是不是素数

Private Sub Command1_Click()
x = Val(InputBox("x="))
i = 1: f = 0
Do While i < x And f = 0
If x Mod i = 0 Then
f = 1
i = i + 1
End If
Loop
If f = 0 Then
Print "yes"
Else
Print "no"
End If
End Sub
请问这段代码错在哪里？？？

Answer 1

你的代码，最主要的错误是Do之前，i=1。

　　你这样写，任何一个正整数x，都会满足 “If x mod i = 0 then” 的条件。

　　这样，都把变量f置为1了。　所以，应该是 i=2 开始。

第2个错误，就是按上面说的，改成 i=2 之后，如果输入任意一个奇数，则因为无法满

　　足 “If x mod i = 0 then” 的条件，i 的值就始终不变（一直为初值2），变成死循环！

主要的问题就在这儿了。

还是看我按“你的思路”修正后的代码吧：

Answer 2

Private Sub Command1_Click()
x = Val(InputBox("x="))
i = 2: f = 0  'i要从2开始
Do While i < x And f = 0
  If x Mod i = 0 Then
  f = 1
  End If
  i = i + 1
Loop
If f = 0 Then
Print "yes"
Else
Print "no"
End If
End Sub

Answer 3

任何正整数 Mod 1都等于0，所以Do的第一次就有F=1，也就不会继续循环了，所以只要不输入0或者1，回答就总是“No"。