vb中将二进制转换为汉字解决方案
vb中将二进制转换为汉字
vb中怎么将二进制(比如说01001110110000000100111001001000)转换为汉字,并显示出来?请给出稍微详细一点的代码。谢谢
------解决方案--------------------
vb中怎么将二进制(比如说01001110110000000100111001001000)转换为汉字,并显示出来?请给出稍微详细一点的代码。谢谢
------解决方案--------------------
- VB code
Private Sub Form_Load() S = "1101011011010000" D = BIN_to_HEX(S) MsgBox Chr(Val("&h" & D)) End Sub ' 用途:将二进制转化为十六进制 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