vb 用while判断素数

答案:3 悬赏:50 手机版

解决时间 2021-01-02 19:15

提问者网友：龅牙恐龙妹
2021-01-01 23:33

不是素数"是素数"= 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 <

最佳答案

五星知识达人网友：撞了怀
2021-01-22 05:12

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

全部回答

1楼网友：孤独的牧羊人
2021-01-22 06:07

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

2楼网友：鸠书
2021-01-22 05:37

为什么不可以？方法一: 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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息