📄 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -