正在加载图片...
【例5-5】例5-4中的If语句可以改为 Select语句,其 代码为: <HTML> <HEAD><TTLE>优惠价计算</ TITLE>/HEAD> <BODY><H3>优惠价计算</H3><HR> 所购商品总金额 Input name= Text1 TYPE= TEXT SIZE=10> /r<P> <INPUT TYPE="Button" NAME="But ton1" VaLUE=ity> <SCRIPT FOR= Button EVENT= onClick LANGUAGE=VBScript> X= Text1. value If Not isnumeric(x) Then MsgBox"您输入的不是数值数据 Exit sub【例5-5】例5-4中的If语句可以改为Select语句，其 代码为： <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