form1.vb

实现简单的计算功能

                    shuzi(1) = Str(Val(shuzi(1)) / Val(shuzi(0)))
                    shuzi(0) = "0"
                    calcount1 = "*"
            End Select
        End If
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.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 "/"
                    shuzi(1) = Str(Val(shuzi(1)) / Val(shuzi(0)))
                    shuzi(0) = "0"
                    calcount1 = "/"
            End Select
        End If
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        shuzi(0) = "0"
        shuzi(1) = "0"
        shuzi(2) = "0"
        calcount1 = "0"
        calcount2 = "0"
        buer = False
        TextBox1.Text = "0."
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Result = System.Math.Sqrt(CDbl(TextBox1.Text))
        TextBox1.Text = CStr(Result)
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Result = 1 / CDbl(TextBox1.Text)
        TextBox1.Text = CStr(Result)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If shuzi(2) = "0" Then
            Select Case calcount1
                Case "+"
                    TextBox1.Text = Str(Val(shuzi(1)) + Val(shuzi(0)))
                Case "-"
                    TextBox1.Text = Str(Val(shuzi(1)) - Val(shuzi(0)))
                Case "*"
                    TextBox1.Text = Str(Val(shuzi(1)) * Val(shuzi(0)))
                Case "/"
                    If shuzi(0) = "0" Then
                        TextBox1.Text = "error!"
                    Else
                        TextBox1.Text = Str(Val(shuzi(1)) / Val(shuzi(0)))
                    End If
            End Select
        ElseIf calcount2 = "*" Then
            shuzi(0) = Str(Val(shuzi(0)) * Val(shuzi(2)))
            Select Case calcount1
                Case "+"
                    TextBox1.Text = Str(Val(shuzi(1)) + Val(shuzi(0)))
                Case "-"
                    TextBox1.Text = Str(Val(shuzi(1)) - Val(shuzi(0)))
                Case "*"
                    TextBox1.Text = Str(Val(shuzi(1)) * Val(shuzi(0)))
                Case "/"
                    If shuzi(0) = "0" Then
                        TextBox1.Text = "error!"
                    Else
                        TextBox1.Text = Str(Val(shuzi(1)) / Val(shuzi(0)))
                    End If
            End Select
        Else : calcount2 = "/"
            shuzi(0) = Str(Val(shuzi(2)) / Val(shuzi(0)))
            Select Case calcount1
                Case "+"
                    TextBox1.Text = Str(Val(shuzi(1)) + Val(shuzi(0)))
                Case "-"
                    TextBox1.Text = Str(Val(shuzi(1)) - Val(shuzi(0)))
                Case "*"
                    TextBox1.Text = Str(Val(shuzi(1)) * Val(shuzi(0)))
                Case "/"
                    If shuzi(0) = "0" Then
                        TextBox1.Text = "error!"
                    Else
                        TextBox1.Text = Str(Val(shuzi(1)) / Val(shuzi(0)))
                    End If
            End Select
        End If
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.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 = True
        Button18.Enabled = True
        Button22.Enabled = True
        Button23.Enabled = True
        Button24.Enabled = True
        Button25.Enabled = True
        Button26.Enabled = True
        Button27.Enabled = True
        If TextBox1.Text = "" Then
            Exit Sub
        ElseIf TextBox1.Text <> "" Then
            TextBox1.Text = Hex(TextBox1.Text)
        End If
End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.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 = True
        Button18.Enabled = True
        Button22.Enabled = False
        Button23.Enabled = False
        Button24.Enabled = False
        Button25.Enabled = False
        Button26.Enabled = False
        Button27.Enabled = False
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        Button7.Enabled = False
        Button8.Enabled = False
        Button11.Enabled = False
        Button12.Enabled = False
        Button13.Enabled = False
        Button16.Enabled = False
        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 = DEC_to_BIN(TextBox1.Text)
        End If
    End Sub

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

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

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

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

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

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        If shuzi(0) = "0" Then
            shuzi(0) = "E"
            TextBox1.Text = shuzi(0) & "."
        ElseIf buer = False Then
            shuzi(0) = shuzi(0) & "E"
            TextBox1.Text = shuzi(0) & "."
        Else
            shuzi(0) = shuzi(0) & "E"
            TextBox1.Text = shuzi(0)
        End If
    End Sub
    Public Function DEC_to_BIN(ByVal Dec As Long) As String
        DEC_to_BIN = ""
        Do While Dec > 0
            DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
            Dec = Dec \ 2
        Loop
    End Function
End Class