<html>
<head>
<script language=vbscript for=btn event=onclick>
dim x,y,z,m
x=clng(frm.txt1.value)
y=clng(frm.txt2.value)
z=frm.txt3.value
select case z
case "+" m=x+y
case "-" m=x-y
case "*" m=x*y
case "/" m=x/y
case "%" m=x mod y
default
msgbox "暂时不提供你输入的符号 "
end select
frm.txt4.value=m
</script>
</head>
<body>
计算器
<form name=frm>
<input type=text name=txt1 value="数据1">
<input type=text name=txt3 size=2>
<input type=text name=txt2 value="数据2"><br>
结果:<input type=text name=txt4><br>
<input type=button name=btn value="结果">
</form>
</body>
</html>
