VS2010旗舰版的VB.NET数字操作系统FORM4程序代码

Public Class Form4
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim num1 As String = TextBox1.Text ‘获取第一个输入框中的数值’
Dim num2 As String = TextBox2.Text ‘获取第二个输入框中的数值’
Dim op As Char = ComboBox1.SelectedItem ‘获取选择的操作符’

    '将输入的数值转换为十进制数值'
    Dim base As Integer
    If RadioButton1.Checked Then
        base = 2
    ElseIf RadioButton2.Checked Then
        base = 8
    ElseIf RadioButton3.Checked Then
        base = 10
    ElseIf RadioButton4.Checked Then
        base = 16
    End If

    Dim decNum1 As Integer = Convert.ToInt32(num1, base)
    Dim decNum2 As Integer = Convert.ToInt32(num2, base)

    '根据选择的操作符执行相应的运算'
    Dim result As Integer
    Select Case op
        Case "+"
            result = decNum1 + decNum2
        Case "-"
            result = decNum1 - decNum2
        Case "*"
            result = decNum1 * decNum2
        Case "/"
            result = decNum1 / decNum2
    End Select

    '将结果转换为所选进制并显示在输出文本框中'
    If RadioButton1.Checked Then
        TextBox3.Text = Convert.ToString(result, 2)
    ElseIf RadioButton2.Checked Then
        TextBox3.Text = Convert.ToString(result, 8)
    ElseIf RadioButton3.Checked Then
        TextBox3.Text = Convert.ToString(result, 10)
    ElseIf RadioButton4.Checked Then
        TextBox3.Text = Convert.ToString(result, 16)
    End If
End Sub

End Class