Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal 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
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 = TextBox7.Text ' 原进制
Dim toBase As Integer = TextBox6.Text ' 目标进制
Dim result As String = "" ' 转换后的结果
' 将进制数转换为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进制数转换为进制数
While num > 0
Dim remainder As Integer = num Mod toBase
result = remainder.ToString() & result
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 = TextBox11.Text ' 原进制
Dim toBase As Integer = TextBox10.Text ' 目标进制
Dim result As String = "" ' 转换后的结果
' 将进制数转换为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进制数转换为进制数
While num > 0
Dim remainder As Integer = num Mod toBase
result = remainder.ToString() & result
num = num \ toBase
End While
' 输出结果
TextBox9.Text = result
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub
End Class