标签：vb End Sub Text ByVal System TextBox1 计算器 net

vb.net简单的计算器实现

效果图

1首先我们需要把控件都摆好.

2处理0~9按钮事件

 '按钮0~9
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If stat = 1 Then
            TextBox1.Text = 0
            stat = 0
        End If

        If TextBox1.Text = "0" Then
            TextBox1.Text = "1"
        Else
            TextBox1.Text = TextBox1.Text + "1"
        End If
    End Sub

3处理加减乘除按钮事件

'按钮加减乘除
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        sign = "+"
        one = TextBox1.Text
        TextBox1.Text = 0
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        sign = "-"
        one = TextBox1.Text
        TextBox1.Text = 0
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        sign = "*"
        one = TextBox1.Text
        TextBox1.Text = 0
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        sign = "/"
        one = TextBox1.Text
        TextBox1.Text = 0
    End Sub

4处理=按钮事件

'按钮等于号
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        two = TextBox1.Text
        If sign = "+" Then
            add()
        End If
        If sign = "-" Then
            minus()
        End If
        If sign = "*" Then
            multiply()
        End If
        If sign = "/" Then
            divide()
        End If
    End Sub

标签：vb,End,Sub,Text,ByVal,System,TextBox1,计算器,net
来源： https://blog.csdn.net/weixin_57171554/article/details/115801299

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。