VS2010旗舰版的VB.NET版本的进制转换程序代码

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim numStr As String = TextBox1.Text ' 输入的3进制整数
    Dim fromBase As Integer = TextBox2.Text ' 原进制
    Dim toBase As Integer = TextBox3.Text ' 目标进制
    Dim result As String = "" ' 转换后的结果

    ' 将3进制数转换为10进制数
    Dim num As Integer = 0
    For i As Integer = numStr.Length - 1 To 0 Step -1
        Dim digit As Integer = Integer.Parse(numStr(i))
        num += digit * CInt(Math.Pow(fromBase, numStr.Length - 1 - i))
    Next

    ' 将10进制数转换为9进制数
    While num > 0
        Dim remainder As Integer = num Mod toBase
        result = remainder.ToString() & result
        num = num \ toBase
    End While

    ' 输出结果
    TextBox4.Text = result

End Sub

End Class