UC知道请帮我指点下VB程序,谢谢!!
来源：百度知道 编辑：UC知道 时间：2024/05/31 09:45:54
就是判断输入在文本框中的数字是不是质数
我编的程序运行不对的,请帮我指点下
谢谢!!
Private Sub Command1_Click()
Tag = True
Dim q%, w%
n = Val(Text1)
For w = 2 To n - 1
If (n Mod w) = 0 Then
Tag = False
Label2.Caption = "非质数"
Else
Tag = True
Label2.Caption = "是质数"
End If
Next w
End Sub
我编的程序运行不对的,请帮我指点下
谢谢!!
Private Sub Command1_Click()
Tag = True
Dim q%, w%
n = Val(Text1)
For w = 2 To n - 1
If (n Mod w) = 0 Then
Tag = False
Label2.Caption = "非质数"
Else
Tag = True
Label2.Caption = "是质数"
End If
Next w
End Sub
Private Sub Command1_Click()
Tag = True
Dim q%, w%
n = Val(Text1)
For w = 2 To n - 1
If (n Mod w) = 0 Then
Tag = False
End If
Next w
if tag=true then
label2.caption="是质数"
else
label2.caption="非质数"
end if
End Sub
在循环里检查，这个n实际上只跟n-1比较，100%质数。
在循环里改变tag的值，再在循环之后根据tag值确定
少end for