Question

如何用VB程序是判断一个整数(>=3) 是否为素数（急求）

题目如下
下列程序是判断一个整数(>=3) 是否为素数，请补充完整。
Dim n As Integer
n=InputBox("请输入一个整数(>=3) ")
k=Int(Sqr(n) )
i=2
tag=0
While i <=k And tag=0
If n Mod i=0 Then
【1】
Else
【2】
End If
Wend
If tag=0 Then
Print n; "是一个素数。"
Else
Print n; "不是一个素数。"
End If

如上~
非常非常感谢

Answer 1

Dim n As Integer
n = InputBox("请输入一个整数(>=3) ")
k = Int(Sqr(n))
i = 2
Tag = 0
While i <= k And Tag = 0
If n Mod i = 0 Then
Tag = 1
Else
i = i + 1
End If
Wend
If Tag = 0 Then
Print n; "是一个素数。"
Else
Print n; "不是一个素数。"
End If

Answer 2

Dim n As Integer
n=InputBox("请输入一个整数(>=3) ")
k=Int(Sqr(n) )
i=2
tag=0
While i <=k And tag=0
If n Mod i=0 Then
tag = 1
Else
i = i + 2
Rem 这里应该是加二吧
End If
Wend
If tag=0 Then
Print n; "是一个素数。"
Else
Print n; "不是一个素数。"
End If

Answer 3

1楼的回答完全正确。

Answer 4

Dim
n
As
Integer
n=InputBox("请输入一个整数(>=3)
")
k=Int(Sqr(n)
)
i=2
tag=0
While
i
<=k
And
tag=0
If
n
Mod
i=0
Then
tag
=
1
Else
i
=
i
+
2
Rem
这里应该是加二吧
End
If
Wend
If
tag=0
Then
Print
n;
"是一个素数。"
Else
Print
n;
"不是一个素数。"
End
If