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 ]作者: qinchun36 时间: 2010-3-27 01:56 你在脚本最开始加上这么一行再运行就很容易查出错误了: