UC知道visual basic 高手来看一下，谢谢！
来源：百度知道 编辑：UC知道 时间：2024/07/03 05:13:12
写了一个程序，判断n是否是质数。可是不管输入什么数，结果总是“不是”。
大家帮我看下哪里不对。程序如下
n = Text1.Text
i = 2
Do While i <= n - 1 And r <> 0
r = n Mod i
i = i + 1
Loop
If r = 0 Then
Text2.Text = "不是"
Else
Text2.Text = "是"
End If
End Sub
一楼的答案我试过了，不行的啊。。。
大家帮我看下哪里不对。程序如下
n = Text1.Text
i = 2
Do While i <= n - 1 And r <> 0
r = n Mod i
i = i + 1
Loop
If r = 0 Then
Text2.Text = "不是"
Else
Text2.Text = "是"
End If
End Sub
一楼的答案我试过了，不行的啊。。。
Text1.Text是字符串类型，所以第一句应该为n = Val(Text1.Text)
程序修改如下：
n = Val(Text1.Text)
f = 0
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then f = f + 1
Next
If f <> 0 Then
Text2.Text = "不是"
Else
Text2.Text = "是"
End If
End Sub