Question

vb编程，判断一个正整数（>=3）是否为素数

程序填空，？处为需填空的语句
private sub form_click()
n=inputbox("请输入一个正整数（>=3))
k=int(sqr(n))
i=2
swit=0
do while i<=k and ?
if ? then
swit=1
else ?
end if
loop
if swit=0 then
print n"是"
else
print n"不是"
end if
end sub

Answer 1

Private Sub form_click()
n = InputBox("请输入一个正整数（>=3)")
k = Int(Sqr(n))
i = 2
swit = 0
Do While i <= k And swit = 0
If n Mod i = 0 Then
swit = 1
Else
i = i + 1
End If
Loop
If swit = 0 Then
Print n; "是"
Else
Print n; "不是"
End If
End Sub

Answer 2

dim
flag
as
byte
:
flag
=
0
for
i
=
2
to
int(n/2)
if
n
mod
i
=
0
then
flag
=
1
exit
for
end
if
next
i
执行完后，flag为0的话，说明是素数；为1的话，是合数。可根据相应要求编写后续代码