编写如下 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 "您输入的不是数值数据