集团文件发布号：（9816-UATWW-MWUB-WUNN-INNUL-DQQTY-19882） VB十进制八进制十六进制二进制相互转换大全 VB--十进制，八进制，十六进制，二进制相互转换大全 ：将十进制转化为二进制 ' 输入：Dec(十进制数) ' 输入数据类型：Long ' 输出：DEC_to_BIN(二进制数) ' 输出数据类型：String Public Function DEC_to_BIN(Dec As Long) As String DEC_to_BIN = "" Do While Dec > 0 DEC_to_BIN = Dec Mod 2 & DEC_to_BIN Dec = Dec \ 2 Loop End Function '2. 用途：将二进制转化为十进制 ' 输入：Bin(二进制数) ' 输入数据类型：String ' 输出：BIN_to_DEC(十进制数) ' 输出数据类型：Long Public Function BIN_to_DEC(ByVal Bin As String) As Long Dim i As Long For i = 1 To Len(Bin) BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1)) Next i End Function ' ：将十六进制转化为二进制 ' 输入：Hex(十六进制数) ' 输入数据类型：String ' 输出：HEX_to_BIN(二进制数) ' 输出数据类型：String 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 ' ：将二进制转化为十六进制 ' 输入：Bin(二进制数) ' 输入数据类型：String ' 输出：BIN_to_HEX(十六进制数) ' 输出数据类型：String 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
