十六进制转化为二进制

===========================================================================代码老张所有
' 用途：将十六进制转化为二进制
' 输入：Hex(十六进制数)
' 输入数据类型：String
' 输出：HEX_to_BIN(二进制数)
' 输出数据类型：String
' 输入的最大数为2147483647个字符
Public Function HEX_to_BIN(ByVal Hex As String) As String
Dim i As Long
Dim B As String

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

 

’================================================================

Private  Sub  Command1_Click() 
           
          MsgBox  getbin("FE") 
  End  Sub 
  Private  Function  getbin(ByVal  hexnum  As  String)  As  String 
          Dim  i  As  Long 
          Dim  binnum  As  String 
          Dim  hexlong  As  Long 
          hexlong  =  Val("&H"  &  hexnum) 
          binnum  =  "" 
          Dim  temps  As  String 
          Dim  templong  As  Long 
          For  i  =  0  To  7 
                  templong  =  hexlong  And  2  ^  i 
                  If  templong  =  2  ^  i  Then 
                          temps  =  "1" 
                  Else 
                          temps  =  "0" 
                  End  If 
                  binnum  =  temps  +  binnum 
          Next 
          getbin  =  binnum 
  End  Function