<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Gb2312">
<title>WMF计算器</title>
</head>
<script language="vbscript">
DIM R,R1,R2,R3
Dim IntRE
Sub button17_OnClick
DIM Intlen,Inti,StrAS
Intlen=len(R)
MsgBox "共有"+CStr(Intlen)+"个字符"
For Inti=1 to Intlen
StrAS=Mid(R,Inti,1)
If (StrAS="+")Or(StrAS="-")Or(StrAS="*")Or(StrAS="/")Or(StrAS="%") Then
R3=StrAS
Exit For
End If
Next
R1=Left(R,Inti-1)
R2=Right(R,Intlen-Inti)
select case R3
case "+" IntRE=CInt(R1)+CInt(R2)
case "-" IntRE=CInt(R1)-CInt(R2)
case "*" IntRE=CInt(R1)*CInt(R2)
case "/" IntRE=CInt(R1)/CInt(R2)
case "%" IntRE=CInt(R1) Mod CInt(R2)
End Select
R=CStr(IntRE)
f1.result.value=CStr(R)
End Sub
Sub button1_OnClick
R=R+"1"
f1.result.value=R
END Sub
Sub button2_OnClick
R=R+"2"
f1.result.value=R
END Sub
Sub button3_OnClick
R=R+"3"
f1.result.value=R
END Sub
Sub button4_OnClick
R=R+"4"
f1.result.value=R
END Sub
Sub button5_OnClick
R=R+"5"
f1.result.value=R
END Sub
Sub button6_OnClick
R=R+"6"
f1.result.value=R
END Sub
Sub button7_OnClick
R=R+"7"
f1.result.value=R
END Sub
Sub button8_OnClick
R=R+"8"
f1.result.value=R
END Sub
Sub button9_OnClick
R=R+"9"
f1.result.value=R
END Sub
Sub button10_OnClick
R=R+"+"
f1.result.value=R
END Sub
Sub button11_OnClick
R=R+"-"
f1.result.value=R
END Sub
Sub button12_OnClick
R=R+"*"
f1.result.value=R
END Sub
Sub button13_OnClick
R=R+"/"
f1.result.value=R
END Sub
Sub button14_OnClick
R=R+"%"
f1.result.value=R
END Sub
Sub button15_OnClick
R=R+"0"
f1.result.value="0"
END Sub
Sub button16_OnClick
R=""
f1.result.value=""
END Sub
</script>
<body bgcolor="#3366CC">
<div style="background-color:#090">
<form name="f1">
R:<input type="text" value="" name="Result" width="100">
<BR>
<BR>
<input type="button" name="button1" value="1">
<input type="button" name="button2" value="2">
<input type="button" name="button3" value="3">
<input type="button" name="button4" value="4">
<BR>
<input type="button" name="button5" value="5">
<input type="button" name="button6" value="6">
<input type="button" name="button7" value="7">
<input type="button" name="button8" value="8">
<BR>
<input type="button" name="button9" value="9">
<input type="button" name="button10" value="+">
<input type="button" name="button11" value="-">
<input type="button" name="button12" value="*">
<BR>
<input type="button" name="button13" value="/">
<input type="button" name="button14" value="%">
<input type="button" name="button15" value="0">
<input type="button" name="button16" value="R">
<BR>
<input type="button" name="button17" value="=">
</form>
<BR>
</div>
</body>
</html>