UC知道用VB判断素数
来源：百度知道 编辑：UC知道 时间：2024/05/13 19:08:40
利用程序完成输入一个正整数,判断该数是否是素数..
我是这样设计的:
Private Sub Command1_Click()
Text1.Text = n
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then Label1.Caption = "是"
Next i
If i > Int(Sqr(n)) Then Label1.Caption = "不是"
End Sub
错在哪呢?
我是这样设计的:
Private Sub Command1_Click()
Text1.Text = n
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then Label1.Caption = "是"
Next i
If i > Int(Sqr(n)) Then Label1.Caption = "不是"
End Sub
错在哪呢?
应该这样
Private Sub Command1_Click()
n= Text1.Text
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then
Label1.Caption = "不是"
Exit Sub
End If
Next i
Label1.Caption = "是"
End Sub
应该是：
Private Sub Command1_Click()
Text1.Text = n
For i = 2 To Int(Sqr(n))-1
If n Mod i = 0 Then Label1.Caption = "是"
Next i
If i = Int(Sqr(n)) Then Label1.Caption = "不是"
End Sub
要用个变量记录!循环到最后没有能整除的才是素数!
前面都错。你是把赋值语句写错了。应该是 n=text1.text