编写如下 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