中国DOS联盟

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

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 ]

你在脚本最开始加上这么一行再运行就很容易查出错误了：

Option Explicit

half=sqr(num)
比较好。

我终于知道是哪里有问题了！！借鉴两位大侠的方法，然后发现原来是我粗心大意把half变量打成了haif。。。哎~~~~太不细心了。。。谢谢两位的指点啦