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

最新推荐文章于 2021-11-27 23:40:21 发布
最新推荐文章于 2021-11-27 23:40:21 发布
阅读量608 收藏
点赞数
分类专栏： JSP/ASP/ASP.net 文章标签： button asp input
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/COPYdeity123/article/details/7036113
版权
 


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

COPYdeity123
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
ASP 计算器（例子）
12-21
ASP 计算器（例子） 这个，在网上可能很少用。 但可以下载去玩玩。
ASP窗体计算器
12-25
ASP计算器，可以供新手参照学习。
小计算器(ASP.NET)
小滕的Java学习旅途
11-27 975
用DropDownList下拉列表控件接收+-*/运算
用Asp做的算术计算器
05-16
采用asp语言简单了编写了一个计算器，实现两个数之间的加减乘除！采用asp语言简单了编写了一个计算器，实现两个数之间的加减乘除！采用asp语言简单了编写了一个计算器，实现两个数之间的加减乘除！采用asp语言简单了编写了一个计算器，实现两个数之间的加减乘除！采用asp语言简单了编写了一个计算器，实现两个数之间的加减乘除！采用asp语言简单了编写了一个计算器，实现两个数之间的加减乘除！
ASP.NET网页计算器
09-26
使用ASP.NET制作，主要是一种简单的网页用的计算器。做的比较粗糙。
Just for fun ----Linux创造的那些传奇
前进的牛
03-30 7123
自由软件 Linux 之父：李纳斯·托沃兹(Linus Torvalds) 　　导语：28岁的芬兰青年李纳斯创造了一个全新的世界：就是一种名为Linux的操作系统。它所产生的力量决定了编程领域的新氛围，正如我们的环境决定了动植物的特性一样。创造简洁优雅的程序，写出干净而无冗长的代码，或者是超一流的程序，就足以赢得同行们的尊敬和推崇。而李纳斯走得更远，他不但重新定义了一流程序、代码和软件的基准，而
最新版仿OPPO手机计算器--android.rar
07-30
本压缩包文件“最新版仿OPPO手机计算器--android.rar”包含了实现这样一个计算器的源代码，为开发者提供了一次深入学习Android编程的机会。 首先，UI设计是构建计算器应用的基础。OPPO手机计算器的界面通常具有清晰...
工程审计费计算器-EXCEL.pdf
11-29
工程审计费计算器-EXCEL.pdf 在工程项目中，审计费计算是一个非常重要的步骤，它直接关系到工程项目的成本控制和财务管理。为帮助工程项目经理和财务人员更好地计算审计费，本文将对工程审计费计算器-EXCEL.pdf进行...
截图计算器-累加计算器-WinForm-电脑桌面程序项目源码
12-31
这是一个运行在Windows系统上的WinForm的桌面程序，截图计算器，累加计算器项目源码，使用Visual Studio 开发工具打开修改，C#语言编程，直接编译正常运行，请放心下载，以下还有... 想要定制电脑桌面程序截图识别...
用asp制作一个简易计算器
01-05
用asp制作一个简易计算器，实现加减乘除运算
asp代码编写的计算器
12-03
用asp代码编写的一个简单的计算器 <title>计算器</title> </head> <body> <form id="form1" runat="server"> <asp:TextBox ID="txttmp" runat="server" Visible="False" Width="59px">0</asp:TextBox> <asp:TextBox ID="txtrus" runat="server" Visible="False" Width="56px">0</asp:TextBox> <asp:TextBox ID="txtdot" runat="server" Visible="False" Width="48px">false</asp:TextBox> <asp:TextBox ID="txtdotnum" runat="server" Visible="False" Width="52px">0</asp:TextBox> <asp:TextBox ID="txtnum" runat="server" Visible="False" Width="57px">0</asp:TextBox> <asp:TextBox ID="txtopt" runat="server" Visible="False" Width="61px">0</asp:TextBox> <table width="300" style="border-right: #3300ff 1px ridge; border-top: #3300ff 1px ridge; border-left: #3300ff 1px ridge; border-bottom: #3300ff 1px ridge; background-color: Yellow" align=center> <caption style="border-right: #0000ff 1px ridge; border-top: #0000ff 1px ridge; border-left: #0000ff 1px ridge; border-bottom: #0000ff 1px ridge"> 计算器
asp语言做的网页版计算器
07-03
做的是一个科学计算器，可以进行二进制，十进制，十六进制等计算。也可以进行单位计算等功能。
用asp计算器的代码
12-05
计算器制作Button btn = (Button)sender; if (f == 1) { str1 = str1 + btn.Text.Trim (); Label1.Text = str1; } else { str2 = str2 + btn.Text .Trim ();; Label1.Text = str1 + opr + str2; } } protected void Button_opr_Click(object sender, EventArgs e) { Button btn = (Button)sender; if (f == 1) { opr = btn.Text; f = 2; } Label1.Text = str1+opr; }
万能个税计算器-可自定义个税.xls
11-13
万能个税计算器、可自定义个税、界面漂亮，功能强大的表格模板
水兵计算器-python版
03-02
本篇文章将深入探讨“水兵计算器-python版”的实现细节，该计算器专注于计算大海战2游戏中的水兵属性和能力。 首先，从标题我们可以了解到，这个项目是针对大海战2这款游戏设计的一个专用工具，它的主要功能是对...
asp 网页计算器
xiexiexiexieqing的博客
05-25 176
是要把 counter 转化为 int 型吗？？ （ 怎么 转化 ( ๑ŏ ﹏ ŏ๑ ) ） 求大神解
ASP.net编写一个网页计算器
song&life
05-02 4747
主要介绍使用ASP.net编写一个简易的网页计算器。前端主要是使用自带的控件，实现逻辑主要是服务端C#。
用ASP.NET实现一个简单的计算器(适合入门者)
zgqtxwd的专栏
04-24 1213
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
微波阻抗计算器-mwi下载
最新发布
01-28
微波阻抗计算器是一种用于计算微波电路元件阻抗的工具，可以帮助工程师在设计和分析微波电路时进行快速的计算。它可以计算出微波电路中各种元件（如线路、电感、电容等）的阻抗数值，并提供相应的参数设置和计算结果...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值