vb 用while判断素数

不是素数"是素数"= x Then
Text2 = "Dim x As Integer;
Else
Text2 = "= x - 1
If x Mod i = 0 Then
Exit Do
i = i + 1
End If
Loop
If i >, i As Integer
x = Val(Text1)
i = 2
Do While i <

你不小心少了一个else，所以i一直等于2，造成死循环。
If x Mod i = 0 Then
Exit Do
Else
i = i + 1
End If

Do While i <= x - 1 If x Mod i = 0 Then Exit Do i = i + 1 End If Loop 重复了吧，改成 While i <= x - 1 If x Mod i = 0 Then Exit Do i = i + 1 End If Wend

为什么不可以？ 方法一: dim n as integer dim i as integer dim yesno as boolean i = 2 yesno = true n = val(inputbox("请输入1个自然数！")) while i < n if n mod i = 0 then yesno = false end if i = i + 1 wend print yesno 如果觉得效率不高: 方法二: dim n as integer dim i as integer dim yesno as boolean i = 2 yesno = true n = val(inputbox("请输入1个自然数！")) while i < n and yesno if n mod i = 0 then yesno = false end if i = i + 1 wend print yesno