vb 二进制转十六进制解决思路

vb 二进制转十六进制
vb   二进制转十六进制

------解决方案--------------------
Public Function BIN_to_HEX(ByVal Bin As String) As String
Dim i As Long
Dim H As String
If Len(Bin) Mod 4 <> 0 Then
Bin = String(4 - Len(Bin) Mod 4, "0 ") & Bin
End If

For i = 1 To Len(Bin) Step 4
Select Case Mid(Bin, i, 4)
Case "0000 ": H = H & "0 "
Case "0001 ": H = H & "1 "
Case "0010 ": H = H & "2 "
Case "0011 ": H = H & "3 "
Case "0100 ": H = H & "4 "
Case "0101 ": H = H & "5 "
Case "0110 ": H = H & "6 "
Case "0111 ": H = H & "7 "
Case "1000 ": H = H & "8 "
Case "1001 ": H = H & "9 "
Case "1010 ": H = H & "A "
Case "1011 ": H = H & "B "
Case "1100 ": H = H & "C "
Case "1101 ": H = H & "D "
Case "1110 ": H = H & "E "
Case "1111 ": H = H & "F "
End Select
Next i
While Left(H, 1) = "0 "
H = Right(H, Len(H) - 1)
Wend
BIN_to_HEX = H
End Function