vb简单实现运算符优先级的计算器

尝试写了一个计算器,VB大作业。从来没有接触过vb语言,只能硬着头皮上了。所幸窗体设计与C#相似。

设计了一个非常简易的计算器(其中利用栈实现了运算符优先级)

【界面如下】


组成包括Label控件2个,其中一个用来显示数学表达式,一个显示当前操作数字;

按钮17个,分别为10个数字0~9,小数点,四则运算按钮,等号按钮,清零按钮;

 

【设计思路】

一开始实现的是只能操作一个运算符:比如输入5+9+6,再按等号输出的是15;

后来想要实现连续运算的功能,就利用栈数据结构,把算术符号的优先级考虑进去。


【原理】


【实现逻辑】

1.       构建两个栈,符号栈和数据栈,利用数组实现,满足先进后出;

2.       界面按钮控件点击事件:

1)     数字:0 <限制不能在首位输入多个0>

2)     数字:1-9 <在label上显示>

3)     小数点 <不能连续输入多个小数点,输入小数点后将该空间可编辑状态设置false,点击其他按钮后恢复true>

4)     运算符号:

  • 4
    点赞
  • 16
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
代码如下 <%@ Page Language="VB" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server"> Class Ent Public Shared total, num1, num2 As String Public Shared sign As String Public Shared Sub click(ByVal a As String) total = total + a End Sub End Class Sub Count() Ent.num2 = TextBox1.Text Try Select Case Ent.sign Case "+" TextBox1.Text = CStr(CDbl(Ent.num1) + CDbl(Ent.num2)) Case "-" TextBox1.Text = CStr(CDbl(Ent.num1) - CDbl(Ent.num2)) Case "*" TextBox1.Text = CStr(CDbl(Ent.num1) * CDbl(Ent.num2)) Case "/" TextBox1.Text = CStr(CDbl(Ent.num1) / CDbl(Ent.num2)) End Select Catch ex As Exception Label1.Text = "同志请不要那数字以外的字符开计算器的玩笑!" TextBox1.Text = "0" Ent.total = "0" Ent.sign = "" End Try Ent.total = "" Ent.sign = "" End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Ent.click("1") TextBox1.Text = Ent.total Call CleanLabel() End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Ent.click("2") TextBox1.Text = Ent.total Call CleanLabel() End Sub Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Ent.click("3") TextBox1.Text = Ent.total Call CleanLabel() End Sub Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Ent.click("4") TextBox1.Text = Ent.total Call CleanLabel() End Sub Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Ent.click("5") TextBox1.Text = Ent.total Call CleanLabel() End Sub Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Ent.click("6") TextBox1.Text = Ent.total Call CleanLabel() End Sub Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Ent.click("7") TextBox1.Text = Ent.total Call CleanLabel() End Sub Protected Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Ent.click("8") TextBox1.Text = Ent.total Call CleanLabel() End Sub Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Ent.click("9") TextBox1.Text = Ent.total Call CleanLabel() End Sub Protected Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Len(Ent.total) > 0 Then Call CleanLabel() Ent.click("0") TextBox1.Text = Ent.total End If End Sub Protected Sub Button18_Click(ByVal sender As Object, ByVal e As System.EventArgs) Call CleanLabel() Ent.total = "" Ent.sign = "" TextBox1.Text = "0" End Sub Protected Sub Button11_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Len(Ent.total) >= 0 Then If InStr(Ent.total, ".") = 0 Then Ent.click(".") TextBox1.Text = Ent.total End If End If Call CleanLabel() End Sub Protected Sub Button12_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Len(Ent.sign) = 1 Then Call Count() Ent.num1 = TextBox1.Text Ent.sign = "+" Else Ent.num1 = TextBox1.Text TextBox1.Text = "0" Ent.total = "" Ent.sign = "+" End If End Sub Protected Sub Button16_Click(ByVal sender As Object, ByVal e As System.EventArgs) Call Count() End Sub Protected Sub Button13_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Len(Ent.sign) = 1 Then Call Count() Ent.num1 = TextBox1.Text Ent.sign = "-" Else Ent.num1 = TextBox1.Text TextBox1.Text = "0" Ent.total = "" Ent.sign = "-" End If End Sub Protected Sub Button14_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Len(Ent.sign) = 1 Then Call Count() Ent.num1 = TextBox1.Text Ent.sign = "*" Else Ent.num1 = TextBox1.Text TextBox1.Text = "0" Ent.total = "" Ent.sign = "*" End If End Sub Protected Sub Button15_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Len(Ent.sign) = 1 Then Call Count() Ent.num1 = TextBox1.Text Ent.sign = "/" Else Ent.num1 = TextBox1.Text TextBox1.Text = "0" Ent.total = "" Ent.sign = "/" End If End Sub Protected Sub Button17_Click(ByVal sender As Object, ByVal e As System.EventArgs) TextBox1.Text = "0" Ent.total = "" Call CleanLabel() End Sub Protected Sub Button19_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Len(TextBox1.Text) > 1 Then TextBox1.Text = Left(TextBox1.Text, (Len(TextBox1.Text) - 1)) Ent.total = TextBox1.Text Else : TextBox1.Text = "0" End If End Sub Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Dim a As Double Try a = CDbl(TextBox1.Text) Call CleanLabel() Catch ex As Exception Label1.Text = "同志请不要那数字以外的字符开计算器的玩笑!" TextBox1.Text = "0" Ent.total = "0" Ent.sign = "" End Try End Sub Sub CleanLabel() Label1.Text = "" End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml" > <head id="Head1" runat="server"> <title>计算器</title> </head> <body> <form id="form1" runat="server"> <div style=" text-align :center "><h3>计算器</h3></div> <div style=" text-align :center "> <asp:Label ID="Label1" runat="server" ForeColor="Red"></asp:Label>  <table style=" width: 164px; border :ridge 1px #000000"> <tr> <td style="width: 187px"> <div style=" text-align :center "> <asp:TextBox ID="TextBox1" runat="server" BorderStyle="Solid" BorderWidth="1px" Width="180px" CausesValidation="True" OnTextChanged="TextBox1_TextChanged" ForeColor="Transparent">0</asp:TextBox> </div> </td> </tr> <tr> <td style="width: 187px; height: 23px;"> <asp:Button ID="Button19" runat="server" OnClick="Button19_Click" Text="BackSpace" Width="72px" UseSubmitBehavior="False" /> <asp:Button ID="Button17" runat="server" Text="CE" OnClick="Button17_Click" Width="48px" UseSubmitBehavior="False" /> <asp:Button ID="Button18" runat="server" Text="C" OnClick="Button18_Click" Width="47px" UseSubmitBehavior="False" /> </td> </tr> <tr><td style="width: 187px;"><asp:Button ID="Button7" runat="server" Text="7" OnClick="Button7_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button8" runat="server" Text="8" OnClick="Button8_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button9" runat="server" Text="9" OnClick="Button9_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button15" runat="server" Text="/" OnClick="Button15_Click" Width="40px" UseSubmitBehavior="False" /></td></tr> <tr><td style="width: 187px;"> <asp:Button ID="Button4" runat="server" Text="4" OnClick="Button4_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button5" runat="server" Text="5" OnClick="Button5_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button6" runat="server" Text="6" OnClick="Button6_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button14" runat="server" Text="*" OnClick="Button14_Click" Width="40px" UseSubmitBehavior="False" /></td></tr> <tr><td style="width: 187px;"> <asp:Button ID="Button1" runat="server" Text="1" OnClick="Button1_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button2" runat="server" Text="2" OnClick="Button2_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button3" runat="server" Text="3" OnClick="Button3_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button13" runat="server" Text="-" OnClick="Button13_Click" Width="40px" UseSubmitBehavior="False" /></td></tr> <tr><td style="width: 187px;"> <asp:Button ID="Button10" runat="server" Text="0" OnClick="Button10_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button11" runat="server" Text="." OnClick="Button11_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button12" runat="server" Text="+" OnClick="Button12_Click" Width="40px" UseSubmitBehavior="False" /> <asp:Button ID="Button16" runat="server" Text="=" OnClick="Button16_Click" Width="40px" UseSubmitBehavior="False" /></td></tr> </table> </div> </form> </body> </html>

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值