程序代码：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www. xmlns="http://www. <title>网页版计算器</title>
<script language="VBSCRIPT">
Function Show(m)
If (Myform.Expression.Value = "" AND InStr(". + - * / ",m)) Then
Myform.Expression.Value = ""
ElseIf (InStr("+ - * / . ",Right(Myform.Expression.Value,1)) And InStr("+ - * / ",m)) Then
ElseIf (m = ".") Then
If (InStr("+ - * / . ",Right(Myform.Expression.Value,1))) Then
ElseIf ((InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"+")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"-")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"*")) And (InstrRev(Myform.Expression.Value,".") > InstrRev(Myform.Expression.Value,"/"))) Then
Else
Myform.Expression.Value = Myform.Expression.Value + m
End If
Else
Myform.Expression.Value = Myform.Expression.Value + m
END If
End Function
Function Sqrt()
If (Myform.Expression.Value = "") Then
Myform.Expression.Value = ""
ElseIf (InStr(". + - * / ",Right(Myform.Expression.Value,1))) Then
Else
Myform.Expression.Value = Eval(Myform.Expression.Value)^2
End If
End Function
Function Result()
If (Myform.Expression.Value = "") Then
Myform.Expression.Value = ""
ElseIf (InStr(". + - * / ",Right(Myform.Expression.Value,1))) Then
Else
Myform.Expression.Value = Eval(Myform.Expression.Value)
End If
End Function
Function Clean()
Myform.Expression.Value = ""
End Function
</script>
<style type="text/css">
<!--
.style5 {font-size: 18px}
-->
</style>
</head>
<body bgcolor="#ffffee" text="#000000">
<form name="myform" method="post" action="">
<div align="center">
<table bgcolor="#C0e0ff" width="214" height="245" border="4">
<tr>
<th width="206" scope="col">
<h2>
<font color="#0000A0">计算器 </font>
</h2>
</th>
</tr>
<tr>
<th height="36" scope="col">
<table width="200" border="1">
<tr>
<td colspan="4">
<div align="center">
<input name="expression" type="text" value="" size="28" maxlength="28">
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="button" id="seven" onclick="Show('7')" value=" 7 ">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" 8 " onclick="Show('8')">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" 9 " onclick="Show('9')">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" / " onclick="Show('/')">
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="button" value=" 4 " onclick="Show('4')">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" 5 " onclick="Show('5')">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" 6 " onclick="Show('6')">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" * " onclick="Show('*')">
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="button" value=" 1 " onclick="Show('1')">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" 2 " onclick="Show('2')">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" 3 " onclick="Show('3')">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" - " onclick="Show('-')">
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="button" value=" 0 " onclick="Show('0')">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" . " onclick="Show('.')">
</div>
</td>
<td>
<div align="center">
<input type="button" value="sqr" onclick="sqrt()">
</div>
</td>
<td>
<div align="center">
<input type="button" value=" + " onclick="Show('+')">
</div>
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="button" value=" AC " onclick="clean()">
</div>
</td>
<td colspan="2">
<div align="center">
<input type="button" value=" = " onclick="result()">
</div>
</td>
</tr>
</table>
</th>
</tr>
</table>
<script type="text/javascript">
var op = window.dialogArguments;
alert("你滴参数" + op);
</script>
