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程序,浏览器显示