中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已解决]判断输入数是否为素数，脚本错在哪？

jarry0932
初级用户

积分 128
发帖 122
注册 2009-9-21
状态离线

『楼主』: [已解决]判断输入数是否为素数，脚本错在哪？

我写的一个判断输入的数是否为素数，如果输入的数不是素数可以正确显示“不是素数”，但如果输入一个素数，则返回的总是空值，不知道错在哪？请大侠指点迷津！！
代码如下：

dim scanf,p
scanf=inputbox("输入一个数：","判断输入的是不是素数")
p=only(scanf)
msgbox(p)

function only(num)
dim half,prf
num=int(num)
if num<1 then
only="输入无效"
exit function
  end if
half=num\2
for a=2 to half
  prf=num mod a
  if prf=0 then
only="不是素数"
exit for
  end if
if a=haif then only="是素数"
next
end function

[ Last edited by jarry0932 on 2010-3-28 at 11:36 ]

2010-3-26 20:01