用vbscript脚本语言设计一个简单的验证程序：要求在文本框中输入一个1到100之间的整数，单击“提交”。若输入正确，则弹出对话框，显示“你输入对了，谢谢！”，不正确，则弹出对话框，显示“请输入一个1到100之间的数字。”

 

源代码：

        

<html>
 <head>
  <title>
  上机实验4.2
  </title>
  <script language="VBScript">
   Sub Output()
   Dim ThisNum
   ThisNum=Document.b.a.value
    If(ThisNum>=1) and (ThisNum<=100) Then
        alert("你输入对了，谢谢！")
   Else
        alert("请输入一个1到100之间的数字。")

   End If
   End Sub
 </script>
 </head>
</html>
<body>
 <b>简单验证</b>
 <hr>
 请输入一个1到100之间的数字：
 <form name="b">
  <input type=text name="a" >
  <input type=button ID=Button1 value="提交" onClick="Call Output()">
 </form>


</body>
</html>