主题：求助VB做数学题
llxx
[专家分：0] 发布于 2008-09-19 10:40:00
请帮我写上"判断一个大于1的整数是否是质数"的程序代码,谢谢了
回复列表 （共7个回复）
沙发
老大徒伤悲 [专家分：29120] 发布于 2008-09-20 15:04:00
你做了哪些代码？我们看看再说好吗？
板凳
大懒猫 [专家分：220] 发布于 2008-09-20 15:23:00
这不是在求判断一个数是否是素数吗？好多书上都有这样的精典代码呀！
Private sub command1_click()
n=val(text1.text)
flag=0
for i=2 to n-1
if (n mod i)=0 then flag=1
if flag=1 then exit for
next i
if flag=0 then
print n;"是素数!"
else
print n;"不是素数!"
end if
end sub[em20]
3 楼
老大徒伤悲 [专家分：29120] 发布于 2008-09-20 17:53:00
for i=2 to n-1
这一行，应该更换为：
for i=2 to sqr（n）
4 楼
老大徒伤悲 [专家分：29120] 发布于 2008-09-20 17:55:00
if (n mod i)=0 then flag=1
if flag=1 then exit for
应该更换为：
if (n mod i)=0 then
flag=1
exit for
endif
5 楼
llxx [专家分：0] 发布于 2008-09-23 16:44:00
太感谢各位了,我通过验证了,谢谢各位了
6 楼
llxx [专家分：0] 发布于 2008-09-23 16:48:00
太感谢各位了,我通过验证了,谢谢各位了
7 楼
llxx [专家分：0] 发布于 2008-09-23 16:50:00
谢谢你了,你真好[em1]
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 求助VB做数学题