index3.htm

这是一个压缩包

<script language="vbscript">
dim i,x,j,s,a
x=inputbox("请输入一个数","求质数")
if x>1000 or x="" or x<0 then

else
for i=2 to x
s=1
for j=2 to cint(sqr(i))
if i mod j=0 then
s=0
end if
next
if s=1 then
a=i&","&a
end if
next
msgbox "在"&x&"到0的质数有:"&a
end if
</script>