vb.net 计算器

最新推荐文章于 2024-07-17 22:31:28 发布

lj_victory

最新推荐文章于 2024-07-17 22:31:28 发布

阅读量1.2k

点赞数 2

文章标签： vb.net textbox object integer string class

本文链接：https://blog.csdn.net/lj_victory/article/details/5568438

版权

第一次学vb.net，做了我很久啊~

Public Class Caculate

    Private Sub btnNo1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo1.Click
        TextBox1.Text += btnNo1.Text
    End Sub

    Private Sub btnNo2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo2.Click
        TextBox1.Text += btnNo2.Text
    End Sub
    Private Sub btnNo3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo3.Click
        TextBox1.Text += btnNo3.Text
    End Sub

    Private Sub btnNo4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo4.Click
        TextBox1.Text += btnNo4.Text
    End Sub
    Private Sub btnNo5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo5.Click
        TextBox1.Text += btnNo5.Text
    End Sub

    Private Sub btnNo6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo6.Click
        TextBox1.Text += btnNo6.Text
    End Sub
    Private Sub btnNo7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo7.Click
        TextBox1.Text += btnNo7.Text
    End Sub

    Private Sub btnNo8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo8.Click
        TextBox1.Text += btnNo8.Text
    End Sub
    Private Sub btnNo9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo9.Click
        TextBox1.Text += btnNo9.Text
    End Sub
    Private Sub btnNo0_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNo0.Click
        TextBox1.Text += btnNo0.Text
    End Sub

'清空

    Private Sub btnClean_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClean.Click
        TextBox1.Text = ""
    End Sub

    Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        TextBox1.Text = TextBox1.Text + " " + btnAdd.Text + " "
    End Sub
    Private Sub btnCut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCut.Click
        TextBox1.Text = TextBox1.Text + " " + btnCut.Text + " "
    End Sub
    Private Sub btnMutiplite_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMutiplite.Click
        TextBox1.Text = TextBox1.Text + " " + btnMutiplite.Text + " "
    End Sub
    Private Sub btnDivide_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDivide.Click
        TextBox1.Text = TextBox1.Text + " " + btnDivide.Text + " "
    End Sub

    Private Sub btnEqual_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEqual.Click
        Dim r As Decimal
        Dim t As String = TextBox1.Text
        Try

            Dim space As Integer = t.IndexOf(" ")
            Dim s1 As String = t.Substring(0, space)
            Dim op As String = t.Substring(space + 1, 1)
            Dim s2 As String = t.Substring(space + 3)
            Dim arg1, arg2 As Integer
            arg1 = Val(s1) : arg2 = Val(s2)

            Select Case op
                Case "+" : r = arg1 + arg2
                Case "-" : r = arg1 - arg2
                Case "*" : r = arg1 * arg2
                Case "/" : r = arg1 / arg2
            End Select

TextBox1.Text = CStr(r)
Exit Sub

ErrorPro:
            Select Case Err.Number
                Case 6
                    MsgBox("算术运算溢出！", , "溢出提示")
                    TextBox1.Focus()
                    Exit Sub
                Case 5
                    MsgBox("必须输入运算符和第二个运算数！", , "运算数少")
                    Exit Sub
                Case Else
                    MsgBox("错误号为" & Err.Number & Chr(10) & Chr(13) & "错误原因：" & Err.Description)
                    Exit Sub
            End Select
        Catch Exam As System.OverflowException   '算术溢出异常处理
            MsgBox("算术运算溢出！", , "溢出提示")
        Catch Exam As System.ArgumentException    '参数数目不够或值不在范围内异常处理
            MsgBox("参数有误,应输入运算符和第二个运算数！", , "参数有误提示")
        Catch Exam As System.FormatException    '参数格式不正确异常处理
            MsgBox("字符串中出现了非数字字符", , "参数格式不正确提示")
        Catch Exam As System.Exception      '其它异常处理
            MsgBox("其它异常，错误号为：" & Err.Number & Chr(10) & Chr(13) & "错误提示：" & Err.Description)
        End Try