scriptscript HTML HEAD TITLETITLE SCRIPT LANGUAGEVBScript Sub Sub
<script></script>内放置脚 <HTML> <HEAD> 本语言 <TITLE>响应按钮事件</TITLE> <SCRIPT LANGUAGE="VBScript"> <!-Sub表示一个过程 Sub Button 1_On. Click Msg. Box "按钮事件已响应 ！" 过程名为按钮Name＋ End Sub ”_”＋事件名 --> </SCRIPT> </HEAD> <BODY> <FORM><INPUT NAME="Button 1" TYPE="BUTTON" VALUE="单击此处 "></FORM> </BODY> </HTML>
控制语句-条件语句（IF语句） 第一种格式： 第三种格式： If expr Then If expr 1 Then Sblock End If 第二种格式： If expr Then Sblock 1 Else Sblock 2 End If Sblock 1 Else. If expr 2 Then Sblock 2 Else. If expr 3 Then Sblock 3 Else Sblock End If
控制语句-条件语句（select case 语句） Select Case expr Case value 1 sblock 1 Case value 2 sblock 2 …… Case Else sblock End Select
例子：用循环语句计算 1到 100得 总和 Dim s, num s=0 num=1 Do while num<=100 s=s+num loop Dim s, num s=0 num=1 while num<=100 s=s+num Wend Dim s, num s=0 num=1 For num=1 to 100 s=s+num Next
一个简单得客户端验证脚本 <HTML> <HEAD><TITLE>简单的客户端验证</TITLE> <SCRIPT LANGUAGE="VBScript"> <!-Sub Submit_On. Click Dim The. Form Set The. Form = Document. Valid. Form If Is. Numeric(The. Form. Text 1. Value) Then If The. Form. Text 1. Value < 1 Or The. Form. Text 1. Value > 10 Then Msg. Box "请输入一个 1 到 10 之间的数字。 " Else Msg. Box "谢谢。" End If Else Msg. Box "请输入一个数字。" End If End Sub --> </SCRIPT> </HEAD> <BODY> <H 3>简单的客户端验证</H 3><HR> <FORM NAME="Valid. Form"> 请输入一个 1 到 10 之间的数字： <INPUT NAME="Text 1" TYPE="TEXT" SIZE="2"> <INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交"> </FORM> </BODY> </HTML>
- Slides: 18
![/html/body/script[1]](https://slidetodoc.com/wp-content/uploads/2020/11/2461385_a0401eb859b7126cc8822dd088a4a70b-300x208.jpg "/html/body/script[1]")
