中科新闻网一模一样宋智恩:有没有验算素数地程序
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 18:58:51
最好要有网站！
用记事本编辑：
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后缀文件就可以了。这样更简单。