《VB各进制转换代码》由会员分享，可在线阅读，更多相关《VB各进制转换代码（10页珍藏版）》请在金锄头文库上搜索。
1、VBVBVB VB 各种进制相互转换大全各种进制相互转换大全 用途 将十进制转化为二进制用途 将十进制转化为二进制 输入 Dec 十进制数 输入数据类型 Long 输出 DEC to BIN 二进制数 输出数据类型 String 输入的最大数为2147483647 输出最大数为1111111111111111111111111111111 31个1 Public Function DEC to BIN DecAs Long As String DEC to BIN Do While Dec 0 DEC to BIN Dec Mod 2 DEC to BIN Dec Dec 2 Loop End
2、 Function 用途 将二进制转化为十进制用途 将二进制转化为十进制 输入 Bin 二进制数 输入数据类型 String 输出 BIN to DEC 十进制数 输出数据类型 Long 输入的最大数为1111111111111111111111111111111 31个1 输出最大数为2147483647 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 Functi
3、on 用途 将十六进制转化为二进制用途 将十六进制转化为二进制 输入 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
4、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 用途
5、将二进制转化为十六进制用途 将二进制转化为十六进制 输入 Bin 二进制数 输入数据类型 String 输出 BIN to HEX 十六进制数 输出数据类型 String 输入的最大数为2147483647个字符 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
6、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
7、 Right H Len H 1 Wend BIN to HEX H End Function 用途 将十六进制转化为十进制用途 将十六进制转化为十进制 输入 Hex 十六进制数 输入数据类型 String 输出 HEX to DEC 十进制数 输出数据类型 Long 输入的最大数为7FFFFFFF 输出的最大数为2147483647 Public Function HEX to DEC ByVal Hex As String As Long Dim i As Long Dim B As Long Hex UCase Hex For i 1 To Len Hex Select Case Mid
8、 Hex Len Hex i 1 1 Case 0 B B 16 i 1 0 Case 1 B B 16 i 1 1 Case 2 B B 16 i 1 2 Case 3 B B 16 i 1 3 Case 4 B B 16 i 1 4 Case 5 B B 16 i 1 5 Case 6 B B 16 i 1 6 Case 7 B B 16 i 1 7 Case 8 B B 16 i 1 8 Case 9 B B 16 i 1 9 Case A B B 16 i 1 10 Case B B B 16 i 1 11 Case C B B 16 i 1 12 Case D B B 16 i 1
9、13 Case E B B 16 i 1 14 Case F B B 16 i 1 15 End Select Next i HEX to DEC B End Function 用途 将十进制转化为十六进制用途 将十进制转化为十六进制 输入 Dec 十进制数 输入数据类型 Long 输出 DEC to HEX 十六进制数 输出数据类型 String 输入的最大数为2147483647 输出最大数为7FFFFFFF Public Function DEC to HEX Dec As Long As String Dim a As String DEC to HEX Do While Dec 0
10、a CStr Dec Mod 16 Select Case a Case 10 a A Case 11 a B Case 12 a C Case 13 a D Case 14 a E Case 15 a F End Select DEC to HEX a DEC to HEX Dec Dec 16 Loop End Function 用途 将十进制转化为八进制用途 将十进制转化为八进制 输入 Dec 十进制数 输入数据类型 Long 输出 DEC to OCT 八进制数 输出数据类型 String 输入的最大数为2147483647 输出最大数为17777777777 Public Funct
11、ion DEC to OCT Dec As Long As String DEC to OCT Do While Dec 0 DEC to OCT Dec Mod 8 DEC to OCT Dec Dec 8 Loop End Function 用途 将八进制转化为十进制用途 将八进制转化为十进制 输入 Oct 八进制数 输入数据类型 String 输出 OCT to DEC 十进制数 输出数据类型 Long 输入的最大数为17777777777 输出的最大数为2147483647 Public Function OCT to DEC ByVal Oct As String As Long D
12、im i As Long Dim B As Long For i 1 To Len Oct Select Case Mid Oct Len Oct i 1 1 Case 0 B B 8 i 1 0 Case 1 B B 8 i 1 1 Case 2 B B 8 i 1 2 Case 3 B B 8 i 1 3 Case 4 B B 8 i 1 4 Case 5 B B 8 i 1 5 Case 6 B B 8 i 1 6 Case 7 B B 8 i 1 7 End Select Next i OCT to DEC B End Function 用途 将二进制转化为八进制用途 将二进制转化为八
13、进制 输入 Bin 二进制数 输入数据类型 String 输出 BIN to OCT 八进制数 输出数据类型 String 输入的最大数为2147483647个字符 Public Function BIN to OCT ByVal Bin As String As String Dim i As Long Dim H As String If Len Bin Mod 3 0 Then Bin String 3 Len Bin Mod 3 0 Bin End If For i 1 To Len Bin Step 3 Select Case Mid Bin i 3 Case 000 H H 0 C
14、ase 001 H H 1 Case 010 H H 2 Case 011 H H 3 Case 100 H H 4 Case 101 H H 5 Case 110 H H 6 Case 111 H H 7 End Select Next i While Left H 1 0 H Right H Len H 1 Wend BIN to OCT H End Function 用途 将八进制转化为二进制用途 将八进制转化为二进制 输入 Oct 八进制数 输入数据类型 String 输出 OCT to BIN 二进制数 输出数据类型 String 输入的最大数为2147483647个字符 Publi
15、c Function OCT to BIN ByVal Oct As String As String Dim i As Long Dim B As String For i 1 To Len Oct Select Case Mid Oct i 1 Case 0 B B 000 Case 1 B B 001 Case 2 B B 010 Case 3 B B 011 Case 4 B B 100 Case 5 B B 101 Case 6 B B 110 Case 7 B B 111 End Select Next i While Left B 1 0 B Right B Len B 1 We
16、nd OCT to BIN B End Function 用途 将八进制转化为十六进制用途 将八进制转化为十六进制 输入 Oct 八进制数 输入数据类型 String 输出 OCT to HEX 十六进制数 输出数据类型 String 输入的最大数为2147483647个字符 Public Function OCT to HEX ByVal Oct As String As String Dim Bin As String Bin OCT to BIN Oct OCT to HEX BIN to HEX Bin End Function 用途 将十六进制转化为八进制用途 将十六进制转化为八进制 输入 Hex 十六进制数 输入数据类型 String 输出 HEX to OCT 八进制数 输出数据类型 String 输入的最大数为2147483647个字符 Public Function HEX to OCT ByVal Hex As String As String Dim Bin As String Hex UCase Hex Bin HEX to BIN Hex HEX to OCT
