8进制计算器代码

Public Class Form1

Dim num1 As Integer '第一个操作数
Dim num2 As Integer '第二个操作数
Dim op As Char      '运算符




Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    TextBox1.Text += "1"
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    TextBox1.Text += "2"
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    TextBox1.Text += "3"
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
    TextBox1.Text += "4"
End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
    TextBox1.Text += "5"
End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button6.Click
    TextBox1.Text += "6"
End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button7.Click
    TextBox1.Text += "7"
End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button8.Click
    TextBox1.Text += "0"
End Sub



Private Sub Button9_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button9.Click
    num1 = Convert.ToInt32(TextBox1.Text, 8)
    op = "+"
    TextBox1.Clear()
End Sub

Private Sub Button10_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button10.Click
    num1 = Convert.ToInt32(TextBox1.Text, 8)
    op = "-"
    TextBox1.Clear()
End Sub

Private Sub Button11_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button11.Click
    num1 = Convert.ToInt32(TextBox1.Text, 8)
    op = "*"
    TextBox1.Clear()
End Sub

Private Sub Button12_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button12.Click
    num1 = Convert.ToInt32(TextBox1.Text, 8)
    op = "/"
    TextBox1.Clear()
End Sub

Private Sub Button13_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button13.Click
    num2 = Convert.ToInt32(TextBox1.Text, 8)

    Select Case op
        Case "+"
            TextBox1.Text = Convert.ToString(num1 + num2, 8)
        Case "-"
            TextBox1.Text = Convert.ToString(num1 - num2, 8)
        Case "*"
            TextBox1.Text = Convert.ToString(num1 * num2, 8)
        Case "/"
            If num2 <> 0 Then

                TextBox1.Text = (Convert.ToString(num1, 8) / Convert.ToString(num2, 8))

            Else
                MessageBox.Show("除数不能为零！")
            End If
    End Select
End Sub

Private Sub Button14_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button14.Click
    TextBox1.Clear()
End Sub

Private Sub Button15_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button15.Click
    If TextBox1.Text.Length > 0 Then
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
    End If
End Sub

End Class