神马品牌网丽水西城广场电影院:帮忙看一下这一段HTML(主要是VB)错在哪?
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 01:07:02
判断质数和合数 请输入一个在3~10000之间的自然数<form>
<input type="text" name="text1" size="20">
<input type="button" name="button1" value="判断">
</form>
<script language="vbscript" for="button1" event="onClick">
t=text1.value
select case true
case not isnumeric(t)
msgbox"您输入的不是一个数值"
case t<3 or t>10000
msgbox"您输入的数超出范围"
case else
m=0 i=2
do while i<t and m=0
if t mod i=0 then m=1 else i=i+1
loop
if m=0 then s="是一个质数" else s="是一个合数" msgbox t & s
end select
</script>
<input type="text" name="text1" size="20">
<input type="button" name="button1" value="判断">
</form>
<script language="vbscript" for="button1" event="onClick">
t=text1.value
select case true
case not isnumeric(t)
msgbox"您输入的不是一个数值"
case t<3 or t>10000
msgbox"您输入的数超出范围"
case else
m=0 i=2
do while i<t and m=0
if t mod i=0 then m=1 else i=i+1
loop
if m=0 then s="是一个质数" else s="是一个合数" msgbox t & s
end select
</script>
可能是符号的错