<html>
<head>
<script language="VBScript">
Sub Output( )
Dim input_val
input_val=Document.OpForm.InputText.value
if input_val>=1 And input_val<=100 then
alert("你输入对了，谢谢！")
else
alert("请输入一个1到100的数字")
end if
end Sub
</script>
</head>
<body><center><form name="OpForm">请输入一个1到100的整数：
<input type=text name="InputText"><br>
<input type=button onClick="Call Output( )" value="提交">
</body>
</html>
业余奶茶品鉴师
CoolHuan
勇闯极限
相关分类