form1.vb

实现简单的计算功能

Public Class Form1
    '进制转换仅能将数据之间相互转换，不能进行除10进制以外的数值之间的运算，进制转换的过程会出错
    Dim shuzi() As String = {"0", "0", "0"}
    Dim buer As Boolean = False
    Dim calcount1 As String = "0"
    Dim calcount2 As String = "0"
    Dim Result As Double
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "0."
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "4"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "4"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "4"
            TextBox1.Text = shuzi(0)
        End If
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "8"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "8"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "8"
            TextBox1.Text = shuzi(0)
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "2"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "2"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "2"
            TextBox1.Text = shuzi(0)
        End If
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        Dim value As String
        value = TextBox1.Text
        If ((value.CompareTo("0.") <> 0) And (value.Length <> 0)) Then
            value = value.Remove(value.Length - 1, 1)
        End If
        If ((value.Length = 0) Or (value = "-")) Then
            value = "0."
        End If
        TextBox1.Text = value
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button6.Enabled = True
        Button7.Enabled = True
        Button8.Enabled = True
        Button11.Enabled = True
        Button12.Enabled = True
        Button13.Enabled = True
        Button16.Enabled = True
        Button17.Enabled = False
        Button18.Enabled = False
        Button22.Enabled = False
        Button23.Enabled = False
        Button24.Enabled = False
        Button25.Enabled = False
        Button26.Enabled = False
        Button27.Enabled = False
        If TextBox1.Text = "" Then
            Exit Sub
        ElseIf TextBox1.Text <> "" Then
            TextBox1.Text = Oct(TextBox1.Text)
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If shuzi(0) = "0" Then
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "0"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "0"
            TextBox1.Text = shuzi(0)
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "1"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "1"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "1"
            TextBox1.Text = shuzi(0)
        End If
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "3"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "3"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "3"
            TextBox1.Text = shuzi(0)
        End If
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "5"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "5"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "5"
            TextBox1.Text = shuzi(0)
        End If
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "6"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "6"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "6"
            TextBox1.Text = shuzi(0)
        End If
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "7"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "7"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "7"
            TextBox1.Text = shuzi(0)
        End If
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "9"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "9"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "9"
            TextBox1.Text = shuzi(0)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        buer = True
        shuzi(0) = "-" & shuzi(0)
        TextBox1.Text = shuzi(0)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        buer = True
        shuzi(0) = shuzi(0) & "."
        TextBox1.Text = shuzi(0)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If calcount1 = "0" Then
            calcount1 = "+"
            shuzi(1) = shuzi(0)
            shuzi(0) = "0"
        Else : Select Case calcount1
                Case "+"
                    shuzi(1) = Str(Val(shuzi(0)) + Val(shuzi(1)))
                    shuzi(0) = "0"
                    calcount1 = "+"
                Case "-"
                    shuzi(1) = Str(Val(shuzi(1)) - Val(shuzi(0)))
                    shuzi(0) = "0"
                    calcount1 = "+"
                Case "*"
                    shuzi(1) = Str(Val(shuzi(0)) * Val(shuzi(1)))
                    shuzi(0) = "0"
                    calcount1 = "+"
                Case "/"
                    shuzi(1) = Str(Val(shuzi(1)) / Val(shuzi(0)))
                    shuzi(0) = "0"
                    calcount1 = "+"
            End Select
        End If
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If calcount1 = "0" Then
            calcount1 = "-"
            shuzi(1) = shuzi(0)
            shuzi(0) = "0"
        Else : Select Case calcount1
                Case "+"
                    shuzi(1) = Str(Val(shuzi(0)) + Val(shuzi(1)))
                    shuzi(0) = "0"
                    calcount1 = "-"
                Case "-"
                    shuzi(1) = Str(Val(shuzi(1)) - Val(shuzi(0)))
                    shuzi(0) = "0"
                    calcount1 = "-"
                Case "*"
                    shuzi(1) = Str(Val(shuzi(0)) * Val(shuzi(1)))
                    shuzi(0) = "0"
                    calcount1 = "-"
                Case "/"
                    shuzi(1) = Str(Val(shuzi(1)) / Val(shuzi(0)))
                    shuzi(0) = "0"
                    calcount1 = "-"
            End Select
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If calcount1 = "0" Then
            calcount1 = "*"
            shuzi(1) = shuzi(0)
            shuzi(0) = "0"
        Else : Select Case calcount1
                Case "+"
                    calcount2 = "*"
                    shuzi(2) = shuzi(0)
                    shuzi(0) = "0"
                Case "-"
                    calcount2 = "*"
                    shuzi(2) = shuzi(0)
                    shuzi(0) = "0"
                Case "*"
                    shuzi(1) = Str(Val(shuzi(0)) * Val(shuzi(1)))
                    shuzi(0) = "0"
                    calcount1 = "*"
                Case "/"