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 - 128
Dim toBase As Integer = CInt(TextBox3.Text) ' 目标进制,限定 2 - 128
If fromBase < 2 Or fromBase > 128 Or toBase < 2 Or toBase > 128 Then
MessageBox.Show("进制范围应在 2 到 128 之间。")
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 - 128
Dim toBase As Integer = CInt(TextBox6.Text) ' 目标进制,限定 2 - 128
If fromBase < 2 Or fromBase > 128 Or toBase < 2 Or toBase > 128 Then
MessageBox.Show("进制范围应在 2 到 128 之间。")
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
End Class