神马品牌网南越王墓挖掘记:有没有验算素数地程序
来源：百度文库 编辑：神马品牌网 时间：2024/05/14 16:31:24
最好要有网站！
用记事本编辑：
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后缀文件就可以了。这样更简单。