VB--十进制_八进制_十六进制_二进制相互转换函数.docVIP

VB--二进制,十进制，八进制，十六进制，相互转换函数 1.用途：将十进制转化为二进制 输入：Dec 十进制数 输入数据类型：Long 输出：DEC_to_BIN 二进制数 输出数据类型：String 输入的最大数为座机电话号码47,输出最大数为1XXXXXXXXXX1XXXXXXXXXX111111111 31个1 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 输入的最大数为1XXXXXXXXXX1XXXXXXXXXX111111111 31个1 ,输出最大数为座机电话号码47 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 3.用途：将十六进制转化为二进制 输入：Hex 十六进制数 输入数据类型：String 输出：HEX_to_BIN 二进制数 输出数据类型：String 输入的最大数为座机电话号码47个字符 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 4.用途：将二进制转化为十六进制 输入：Bin 二进制数 输入数据类型：String 输出：BIN_to_HEX 十六进制数 输出数据类型：String 输入的最大数为座机电话号码47个字符 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 BI