求VB编程代码:题目:判断一个数是否是素数?

谢谢!

2025-01-22 16:54:20

推荐回答（4个）

回答1：

判断素数的原理是：
素数是只能被1和本身整除的数。例如 3只能被1和3整除，17只能被1和17整除等等，想9就不是素数（能被1，3，9整除）。

编程的算法是：
穷举法，就是将需要判断的数除2、除3....一直除到这个数减1.
例如：判断7是不是素数的算法是进行如下运算 7/2，7/3，7/4，7/5，7/6，在上述除的过程中如果都不能被除尽则可以断定7是素数，否则就说明7不是素数。
注意：编程时使用求余运算，判断是否能被除尽。
参考程序如下：
dim i as integer
dim j as integer
dim x as integer
x=val(inputbox("请输入一个自然数：","输入提示"))
for i=2 to x-1
if x mod i=0 then exit for
next i
if i=x then '此处若i的值变为x则说明所以上面的循环全被执行完
print x & "是素数"
else
print x & "不是素数" '若iendif

当然程序还可以被优化，例如不一定非除到n-1,完全可以除到根号下n，
举例一：判断25是不是素数的话，只需要除到5即可
举例二：对于开根后是小数的可以取整，如判断15是不是素数只需要除到3即可。
简化后的程序运行速度会更快的。

回答2：

判断m是否为素数：
Private Sub Command1_Click()
Dim i&, m&, Tag As Boolean
m = Val(Text1)
Tag = True
For i = 2 To Sqr(m)…………注
If (m Mod i) = 0 Then Tag = False
Next i
If Tag Then
MsgBox m & "是素数", , "提示！"
Else: MsgBox m & " 不是素数", , "提示！"
End If
End Sub
注：这里用For i = 2 To m - 1的话，如果输入的数很大，比如1234567891，要等2分钟才能出结果：“1234567891是素数”，而用Sqr(m）的话则瞬间出结果。

回答3：

Private Function check(i As Integer) As Boolean
For j = 2 To CInt(Sqr(i)) + 1 '从2循环到i的平方根
If i Mod j = 0 Then '如果i除以j的余数为0,说明i不是素数
check = False '返回false
Exit Function '退出本过程
End If
Next j
check = True '循环结束没有退出过程,说明i不能整除从2到i平方根的所有数,也就是说i是素数,返回true
End Function

回答4：

判断n是否是素数:
k=1
for i=2 to n-1
if n mod i=0 then
k=0
exit for
end if
next
if k=0 then
msgbox ("不是素数")
else
msgbox ("是素数")
end if

和人打架造成对方轻伤害，需要怎么样的赔偿？赔偿的标准是什么？

如何帮自由职业父母申请美国旅游签证

二重一相，一重二相，二重二相降压斩波电路分别怎么画？图为三重三相的，仿照这个三重三相来画

苹果电脑Macbook air安装windows7以后热键不能用

海鲜锅怎么做？

不还信用卡欠款有什么后果？

请大家帮我详细分析一下，谁能告诉我，我该怎么办呢？我快崩溃了，真的很痛苦

翡翠三丁的家常做法大全怎么做好吃视频

oppo手机闪光灯怎么设置