vb高手帮忙~~！

来源：百度知道 编辑：UC知道 时间：2024/06/05 02:41:43
请问如何实现在一个文本框内输入十六进制的数，在另外一个文本框内显示相应的二进制数
请问一楼的先生，怎么对字符串进行分解啊，该怎么设置呢，

提供一段16进制转换为二进制的自定义函数供参考：
Public Function Hex_bin()
For i = 1 To 4
ccl(i) = Mid(blL, i, 1)
Next i
For j = 1 To 4
bl = ccl(j)
If bl = "F" Then
bl_dm = "1111"
ElseIf bl = "E" Then
bl_dm = "1110"
ElseIf bl = "D" Then
bl_dm = "1101"
ElseIf bl = "C" Then
bl_dm = "1100"
ElseIf bl = "B" Then
bl_dm = "1011"
ElseIf bl = "A" Then
bl_dm = "1010"
ElseIf bl = "9" Then
bl_dm = "1001"
ElseIf bl = "8" Then
bl_dm = "1000"
ElseIf bl = "7" Then
bl_dm = "0111"
ElseIf bl = "6" Then
bl_dm = "0110"
ElseIf bl = "5" Then
bl_dm = "0101"
ElseIf bl = "4" Then
bl_dm = "0100"
ElseIf bl = "3" Then
bl_dm = "