【例5-4】某百货公司为了促销,采用购物打折扣的优 惠办法(如图5-3)。每位顾客一次购物: (1)在1000元以上者,按九五折优惠。 (2)在2000元以上者,按九折优惠 (3)在300元以上者,按八五折优惠 (4)在5000元以上者,按八折优惠。 分析:设购物款数为x元,优惠价为y元,则优惠付 款公式为: (x<1000 0.95x(1000≤x<2000 0.9x (2000≤x<3000 0.85x(3000≤x<5000 0.8x (x≥5000
【例5-4】某百货公司为了促销，采用购物打折扣的优 惠办法（如图5-3）。每位顾客一次购物： (1) 在1000元以上者，按九五折优惠。 (2) 在2000元以上者，按九折优惠。 (3) 在3000元以上者，按八五折优惠。 (4) 在5000元以上者，按八折优惠。 分析：设购物款数为x元，优惠价为y元，则优惠付 款公式为： ( 5000) (3000 5000) (2000 3000) (1000 2000) ( 1000) 0.8 0.85 0.9 0.95 = x x x x x x x x x x y
编写如下 VBScript程序代码: <HTML> <HEAD>< TITLE>优惠价计算< TITLE></HEAD BODY><H3>优惠价计算</H3><HR> 所购商品总金额 KINPUT name= Text1 TYPE= TEXT SIZE="10"> T<P> KINPUT TYPE="Button" NAME="Button1" VALUE="itif KSCRIPT FOR="But tonl EVENT="onClick LANGUAGE="VBScript") x= Text1. value If Not IsNumeric(x) Then MsgBox"您输入的不是数值数据": Exit sub
编写如下VBScript程序代码： <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 "您输入的不是数值数据" : Exit Sub
If x< 1000 Then EIself x< 2000 Then 95米X Elself x 3000 Then 0.9*x Elself x< 5000 Then y=0.85*x EI End If MsgBox"优惠价为:"&y&"元 K/SCRIPT> </BODY> </HTML> 执行 VBScript程序,浏览器显
If x < 1000 Then y = x ElseIf x < 2000 Then y = 0.95 * x ElseIf x < 3000 Then y = 0.9 * x ElseIf x < 5000 Then y = 0.85 * x Else y = 0.8 * x End If MsgBox "优惠价为：" & y & "元" </SCRIPT> </BODY> </HTML> 执行VBScript程序，浏览器显示
2.多分支条件选择结构 多分支选择结构的特点是:从多个选择结构中, 选择第一个条件为真的路线作为执行的路线。即所给 定的选择条件1为真时,执行al块;如果为假则继续检 查下一个条件。如果条件都不为真,就执行其他操作 块,如果没有其他操作块,则不作任何操作就结束选 择 虽然使用嵌套的办法可以利用If语句实现多分支 选择,但是最好还是使用 VBScript提供的多分支选择 结构( Select case语句)来实现多分支选择
2. 多分支条件选择结构 多分支选择结构的特点是：从多个选择结构中， 选择第一个条件为真的路线作为执行的路线。即所给 定的选择条件1为真时，执行a1块；如果为假则继续检 查下一个条件。如果条件都不为真，就执行其他操作 块，如果没有其他操作块，则不作任何操作就结束选 择。 虽然使用嵌套的办法可以利用If语句实现多分支 选择，但是最好还是使用VBScript提供的多分支选择 结构（Select Case语句）来实现多分支选择
Select case语句可以根据测试条件的值,来决定 执行几组语句中之一组,其语法格式为: Select case〈测试条件〉 [Case〈表达式表1 [〈语句列1〉]] [Case〈表达式表2 [〈语句列2〉] [Case Else [〈其他语句列〉 End select 说明 ①〈测试条件〉为必要参数,是任何数值或字符 表达式
Select Case语句可以根据测试条件的值，来决定 执行几组语句中之一组，其语法格式为： Select Case〈测试条件〉 [Case〈表达式表1〉 [〈语句列1〉]] [Case〈表达式表2〉 [〈语句列2〉]] ... [Case Else [〈其他语句列〉]] End Select 说明： ①〈测试条件〉为必要参数，是任何数值或字符 表达式