杭州交通信息网冷冻一遍几天疣体掉:有没有验算素数地程序
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 23:53:52
最好要有网站！
用记事本编辑：
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后缀文件就可以了。这样更简单。