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

Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim numStr As String = TextBox1.Text ’ 输入的原进制数
Dim fromBase As Integer = CInt(TextBox2.Text) ’ 原进制，限定 2 - 10000
Dim toBase As Integer = CInt(TextBox3.Text) ’ 目标进制，限定 2 - 10000

    If fromBase < 2 Or fromBase > 10000 Or toBase < 2 Or toBase > 10000 Then
        MessageBox.Show("进制范围应在 2 到 10000 之间。")
        Exit Sub
    End If

    Dim result As String = "" ' 转换后的结果

    ' 将原进制数转换为 10 进制数
    Dim num As Integer = 0
    For i As Integer = numStr.Length - 1 To 0 Step -1
        Dim digit As Char = numStr(i)
        Dim digitValue As Integer

        If Char.IsDigit(digit) Then
            digitValue = Integer.Parse(digit.ToString())
        ElseIf Char.IsUpper(digit) Then
            digitValue = Asc(digit) - Asc("A") + 10
        Else
            digitValue = Asc(digit) - Asc("a") + 36
        End If

        If digitValue >= fromBase Then
            MessageBox.Show("输入的原进制数存在不符合原进制的字符。")
            Exit Sub
        End If

        num += digitValue * CInt(Math.Pow(fromBase, numStr.Length - 1 - i))
    Next

    ' 将 10 进制数转换为目标进制数
    While num > 0
        Dim remainder As Integer = num Mod toBase
        If remainder < 10 Then
            result = remainder.ToString() & result
        ElseIf remainder < 36 Then
            Dim digitChar As Char = Chr(remainder - 10 + Asc("A"))
            result = digitChar.ToString() & result
        Else
            Dim digitChar As Char = Chr(remainder - 36 + Asc("a"))
            result = digitChar.ToString() & result
        End If
        num = num \ toBase
    End While

    TextBox4.Text = result
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
  
    Dim numStr As String = TextBox8.Text ' 输入的原进制数
    Dim fromBase As Integer = CInt(TextBox7.Text) ' 原进制，限定 2 - 10000
    Dim toBase As Integer = CInt(TextBox6.Text) ' 目标进制，限定 2 - 10000

    If fromBase < 2 Or fromBase > 10000 Or toBase < 2 Or toBase > 10000 Then
        MessageBox.Show("进制范围应在 2 到 10000 之间。")
        Exit Sub
    End If

    Dim result As String = "" ' 转换后的结果

    ' 将原进制数转换为 10 进制数
    Dim num As Integer = 0
    For i As Integer = numStr.Length - 1 To 0 Step -1
        Dim digit As Char = numStr(i)
        Dim digitValue As Integer

        If Char.IsDigit(digit) Then
            digitValue = Integer.Parse(digit.ToString())
        ElseIf Char.IsUpper(digit) Then
            digitValue = Asc(digit) - Asc("A") + 10
        Else
            digitValue = Asc(digit) - Asc("a") + 36
        End If

        If digitValue >= fromBase Then
            MessageBox.Show("输入的原进制数存在不符合原进制的字符。")
            Exit Sub
        End If

        num += digitValue * CInt(Math.Pow(fromBase, numStr.Length - 1 - i))
    Next

    ' 将 10 进制数转换为目标进制数
    While num > 0
        Dim remainder As Integer = num Mod toBase
        If remainder < 10 Then
            result = remainder.ToString() & result
        ElseIf remainder < 36 Then
            Dim digitChar As Char = Chr(remainder - 10 + Asc("A"))
            result = digitChar.ToString() & result
        Else
            Dim digitChar As Char = Chr(remainder - 36 + Asc("a"))
            result = digitChar.ToString() & result
        End If
        num = num \ toBase
    End While

    TextBox5.Text = result

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click

    Dim numStr As String = TextBox12.Text ' 输入的原进制数
    Dim fromBase As Integer = CInt(TextBox11.Text) ' 原进制，限定 2 - 10000
    Dim toBase As Integer = CInt(TextBox10.Text) ' 目标进制，限定 2 - 10000

    If fromBase < 2 Or fromBase > 10000 Or toBase < 2 Or toBase > 10000 Then
        MessageBox.Show("进制范围应在 2 到 10000 之间。")
        Exit Sub
    End If

    Dim result As String = "" ' 转换后的结果

    ' 将原进制数转换为 10 进制数
    Dim num As Integer = 0
    For i As Integer = numStr.Length - 1 To 0 Step -1
        Dim digit As Char = numStr(i)
        Dim digitValue As Integer

        If Char.IsDigit(digit) Then
            digitValue = Integer.Parse(digit.ToString())
        ElseIf Char.IsUpper(digit) Then
            digitValue = Asc(digit) - Asc("A") + 10
        Else
            digitValue = Asc(digit) - Asc("a") + 36
        End If

        If digitValue >= fromBase Then
            MessageBox.Show("输入的原进制数存在不符合原进制的字符。")
            Exit Sub
        End If

        num += digitValue * CInt(Math.Pow(fromBase, numStr.Length - 1 - i))
    Next

    ' 将 10 进制数转换为目标进制数
    While num > 0
        Dim remainder As Integer = num Mod toBase
        If remainder < 10 Then
            result = remainder.ToString() & result
        ElseIf remainder < 36 Then
            Dim digitChar As Char = Chr(remainder - 10 + Asc("A"))
            result = digitChar.ToString() & result
        Else
            Dim digitChar As Char = Chr(remainder - 36 + Asc("a"))
            result = digitChar.ToString() & result
        End If
        num = num \ toBase
    End While

    TextBox9.Text = result

End Sub

End Class