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
…
…
…
🎉精彩不容错过!新文章震撼登场,却因代码不全让人意犹未尽?别担心!我们为你准备了软件截图,让你先睹为快,感受其强大魅力。
✨如果你渴望解锁全部精彩内容,那么强烈建议你下载完整源代码。它将为你打开一扇通往编程新世界的大门,让你深入探索其中的奥秘,挖掘无限潜力。
🔗源代码下载网址:[https://download.csdn.net/download/qq_32257509/89633364]。赶紧行动起来,下载完整源代码,开启你的编程之旅吧!