关于VB求素数的程序的一些疑问...请高手解答

Private Sub Command1_Click()
x = Val(InputBox("输入一个数值", "检查数值"))
For i = 2 To x - 1
If x Mod i = 0 Then
Text1 = x & "不是素数"
Exit For
Else
Text1 = x & "是素数"
End If
Next
End Sub

 

我觉得我这条程序错了...但是他输出的结果又正确.....我想问下VB中  FOR 语句先执行完IF语句再执行ELSE???

不是啊，如果要是满足if的条件就执行了if就不执行else了，要是不满足if的条件就不执行if而执行else了。

结果没有错误，不过对1和2不会检查

另外在 for循环结束后再得出是素数的结果要合理些，当然这不影响最后的结果，只是for循环中输出的结果就有问题了

这个程序是错误的，这样的程序把所有的奇数都看成素数了

Private Sub Command1_Click()

x = Val(InputBox("输入一个数值", "检查数值"))
For i = 2 To x - 1
If x Mod i = 0 Then
Text1 = x & "不是素数"
Exit For
Else

Next i    '把next移到上面来
Text1 = x & "是素数"
End If
End Sub