最傻的ASP计算器--本人喝多时写的

 


<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>

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值