vb.net简单的计算器实现

全栈程序员站长

发布于 2021-04-07 15:22:09

1.1K00

代码可运行

文章被收录于专栏：全栈程序员必看全栈程序员必看

运行总次数：0

代码可运行

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

有需要源码的小伙伴可以联系我。也欢迎其他小伙伴留言交流学习

本文参与腾讯云自媒体同步曝光计划，分享自作者个人站点/博客。

原始发表：2021年3月12日，如有侵权请联系 cloudcommunity@tencent.com 删除

事件