【例5-2】将例5-1中的行If语句改为使用块If语句。 <HTML <HEAD>< TITLE>简单验证</ TITLE></HEAD> <BODY><H3>简单验证</H3><HR> 请输入数值数据 Input name= Text1 TYPE=TEXT SIZE=10><P> 〈 INPUT TYPE=" Button"NAME=" Button" VALUE="确认"> KSCRIPT FOR="But tonl EVENT="onClick LANGUAGE=VBScript X= TextI value If Not IsNumeric (x) Then MsgBox"您输入的不是数值数据” El MsgBox"您输入的数据是:"&x End if K/SCRIPT> /BODY> </HTML>
【例5-2】将例5-1中的行If语句改为使用块If语句。 <HTML> <HEAD><TITLE>简单验证</TITLE></HEAD> <BODY><H3>简单验证</H3><HR> 请输入数值数据： <input name="Text1" TYPE="TEXT" SIZE="10"><P> <INPUT TYPE="Button" NAME="Button1" VALUE="确认"> <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript"> x = Text1.value If Not IsNumeric(x) Then MsgBox "您输入的不是数值数据" Else MsgBox "您输入的数据是：" & x End If </SCRIPT> </BODY> </HTML>
(3)Ⅰf语句的嵌套 If语句可以嵌套使用,即在If语句的操作块(语 句列1或语句列2)中使用If语句。 【例5-3】铁路托运行李,从甲地到乙地,规定每张 客票托运费计算方法是:行李重量不超过50公斤时, 每公斤0.25元,超过50公斤而不超过100公斤时,其超 过部分每公斤0.35元,超过100公斤时,其超过部分每 公斤0.45元。编写程序,输入行李重量,计算并输出 托运的费用 分析:设行李重量为w公斤,应付运费为x元,则运 费公式为: 0.25× (w≤50) 0.25×50+0.35×(v-50) (50<v≤100 0.25×50+0.35×50+0.45×(v-100 (>100)
(3) If语句的嵌套 If语句可以嵌套使用，即在If语句的操作块（语 句列1或语句列2）中使用If语句。 【例5-3】铁路托运行李，从甲地到乙地，规定每张 客票托运费计算方法是：行李重量不超过50公斤时， 每公斤0.25元，超过50公斤而不超过100公斤时，其超 过部分每公斤0.35元，超过100公斤时，其超过部分每 公斤0.45元。编写程序，输入行李重量，计算并输出 托运的费用。 分析：设行李重量为w公斤，应付运费为x元，则运 费公式为： ( 100) (50 100) ( 50) 0.25 50 0.35 50 0.45 ( 100) 0.25 50 0.35 ( 50) 0.25 + + − + − = w w w w w w x
编写如下 VBScript程序代码: <HTML> <HEAD>< TITLE>托运费计算< TITLE>/HEAD> <BODY><H3>托运费计算</H3><HR> 请输入行李重量 Input name="Text1 TYPE= TEXT SIZE="10"> kg    INPUT TYPE=" Button"NAME=" Button1" VALUE="计算”> SCRIPT FOR= But tonl EVENT="onClick LANGUAGE="VBScript"> TextI value If Not IsNumeric(w)-Then MsgBox"您输入的不是数值数据
编写如下VBScript程序代码： <HTML> <HEAD><TITLE>托运费计算</TITLE></HEAD> <BODY><H3>托运费计算</H3><HR> 请输入行李重量： <input name="Text1" TYPE="TEXT" SIZE="10"> kg <INPUT TYPE="Button" NAME="Button1" VALUE="计算"> <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript"> w = Text1.value If Not IsNumeric(w) Then MsgBox "您输入的不是数值数据
EI If w<= 50 Then 0.25* EIse If w<= 100 Then x=0.25*50+0.35*(w-50) Else x=0.25*50+0.35*50+0.45*(w-100) End if End If MsgBox“行李的托运费是:"&x&”元 End if </SCRIPT> K/BODY> </HTML> 执行 VBScript程序,浏览器显示
Else If w <= 50 Then x = 0.25 * w Else If w <= 100 Then x = 0.25 * 50 + 0.35 * (w - 50) Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100) End If End If MsgBox "行李的托运费是：" & x & "元" End If </SCRIPT> </BODY> </HTML> 执行VBScript程序，浏览器显示
(4)If语句的嵌套格式 当代码中出现多层If语句嵌套时,将使程序冗长 而不便阅读。为此 VBScript提供了带 EIsele的If语句 来处理当条件为假时又内嵌If语句的情形,以使程序 简化易写。其语法格式为: If〈条件1)Then [语句列1 EIsele〈条件2〉Then [语句列2] LEIse [其他语句列]] End If
(4) If语句的嵌套格式 当代码中出现多层If语句嵌套时，将使程序冗长 而不便阅读。为此VBScript提供了带ElseIf的If语句 来处理当条件为假时又内嵌If语句的情形，以使程序 简化易写。其语法格式为： If〈条件1〉Then [语句列1] ElseIf〈条件2〉Then [语句列2] ... [Else [其他语句列]] End If