查人人中国名人网丧尸之战有折扣活动吗?:有没有验算素数地程序
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 22:14:08
最好要有网站！
用记事本编辑：
dim num,flag
flag=true
num=inputbox("")
for i = 2 to int(sqr(num))
if num mod i =0 then
flag=false
exit for
end if
next
if flag=true then
msgbox num & " YES"
else
msgbox num & " NO"
end if
'存成为VBS后缀文件就可以了。这样更简单。