VB各进制转换代码.pdf

1、V B V B V B V B 各 种进 制相 互 转换 大 全 用途 ：将十进 制转化为 二进制 输入： D e c ( 十进制数 ) 输入数据类型： L o n g 输出： D E C _ t o _ B I N ( 二进制数 ) 输出数据类型： S t r i n g 输入的最大数为 2 1 4 7 4 8 3 6 4 7 , 输出最大数为 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ( 3 1 个 1 ) P u b l i c F u n c t i o n D E C _ t o _ B I N ( D

2、 e c A s L o n g ) A s S t r i n g D E C _ t o _ B I N = “ “ D o W h i l e D e c 0 D E C _ t o _ B I N = D e c M o d 2 & D E C _ t o _ B I N D e c = D e c 2 L o o p E n d F u n c t i o n 用途 ：将二进 制转化为 十进制 输入： B i n ( 二进制数 ) 输入数据类型： S t r i n g 输出： B I N _ t o _ D E C ( 十进制数) 输出数据类型： L o n g 输入的最大数为 1

3、 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ( 3 1 个1 ) , 输出最大数为 2 1 4 7 4 8 3 6 4 7 P u b l i c F u n c t i o n B I N _ t o _ D E C ( B y V a l B i n A s S t r i n g ) A s L o n g D i m i A s L o n g F o r i = 1 T o L e n ( B i n ) B I N _ t o _ D E C = B I N _ t o _ D E C * 2 + V a

4、 l ( M i d ( B i n , i , 1 ) ) N e x t i E n d F u n c t i o n 用途 ：将十六 进制转化 为二进制 输入： H e x ( 十六进制数 ) 输入数据类型： S t r i n g 输出： H E X _ t o _ B I N ( 二进制数 ) 输出数据类型： S t r i n g 输入的最大数为 2 1 4 7 4 8 3 6 4 7 个字符 P u b l i c F u n c t i o n H E X _ t o _ B I N ( B y V a l H e x A s S t r i n g ) A s S t r

5、i n g D i m i A s L o n g D i m B A s S t r i n g H e x = U C a s e ( H e x ) F o r i = 1 T o L e n ( H e x ) S e l e c t C a s e M i d ( H e x , i , 1 ) C a s e “ 0 “ : B = B & “ 0 0 0 0 “ C a s e “ 1 “ : B = B & “ 0 0 0 1 “ C a s e “ 2 “ : B = B & “ 0 0 1 0 “ C a s e “ 3 “ : B = B & “ 0 0 1 1 “ C

6、a s e “ 4 “ : B = B & “ 0 1 0 0 “ C a s e “ 5 “ : B = B & “ 0 1 0 1 “ C a s e “ 6 “ : B = B & “ 0 1 1 0 “ C a s e “ 7 “ : B = B & “ 0 1 1 1 “ C a s e “ 8 “ : B = B & “ 1 0 0 0 “ C a s e “ 9 “ : B = B & “ 1 0 0 1 “ C a s e “ A “ : B = B & “ 1 0 1 0 “ C a s e “ B “ : B = B & “ 1 0 1 1 “ C a s e “ C “

7、: B = B & “ 1 1 0 0 “ C a s e “ D “ : B = B & “ 1 1 0 1 “ C a s e “ E “ : B = B & “ 1 1 1 0 “ C a s e “ F “ : B = B & “ 1 1 1 1 “ E n d S e l e c t N e x t i W h i l e L e f t ( B , 1 ) = “ 0 “ B = R i g h t ( B , L e n ( B ) - 1 )W e n d H E X _ t o _ B I N = B E n d F u n c t i o n 用途 ：将二进 制转化为 十六

8、进制 输入： B i n ( 二进制数 ) 输入数据类型： S t r i n g 输出： B I N _ t o _ H E X ( 十六进制数 ) 输出数据类型： S t r i n g 输入的最大数为 2 1 4 7 4 8 3 6 4 7 个字符 P u b l i c F u n c t i o n B I N _ t o _ H E X ( B y V a l B i n A s S t r i n g ) A s S t r i n g D i m i A s L o n g D i m H A s S t r i n g I f L e n ( B i n ) M o d 4

9、0 T h e n B i n = S t r i n g ( 4 - L e n ( B i n ) M o d 4 , “ 0 “ ) & B i n E n d I f F o r i = 1 T o L e n ( B i n ) S t e p 4 S e l e c t C a s e M i d ( B i n , i , 4 ) C a s e “ 0 0 0 0 “ : H = H & “ 0 “ C a s e “ 0 0 0 1 “ : H = H & “ 1 “ C a s e “ 0 0 1 0 “ : H = H & “ 2 “ C a s e “ 0 0 1 1

10、“ : H = H & “ 3 “ C a s e “ 0 1 0 0 “ : H = H & “ 4 “ C a s e “ 0 1 0 1 “ : H = H & “ 5 “ C a s e “ 0 1 1 0 “ : H = H & “ 6 “ C a s e “ 0 1 1 1 “ : H = H & “ 7 “ C a s e “ 1 0 0 0 “ : H = H & “ 8 “ C a s e “ 1 0 0 1 “ : H = H & “ 9 “ C a s e “ 1 0 1 0 “ : H = H & “ A “ C a s e “ 1 0 1 1 “ : H = H &

11、“ B “C a s e “ 1 1 0 0 “ : H = H & “ C “ C a s e “ 1 1 0 1 “ : H = H & “ D “ C a s e “ 1 1 1 0 “ : H = H & “ E “ C a s e “ 1 1 1 1 “ : H = H & “ F “ E n d S e l e c t N e x t i W h i l e L e f t ( H , 1 ) = “ 0 “ H = R i g h t ( H , L e n ( H ) - 1 ) W e n d B I N _ t o _ H E X = H E n d F u n c t i

12、 o n 用途 ：将十六 进制转化 为十进制 输入： H e x ( 十六进制数 ) 输入数据类型： S t r i n g 输出： H E X _ t o _ D E C ( 十进制数 ) 输出数据类型： L o n g 输入的最大数为 7 F F F F F F F , 输出的最大数为 2 1 4 7 4 8 3 6 4 7 P u b l i c F u n c t i o n H E X _ t o _ D E C ( B y V a l H e x A s S t r i n g ) A s L o n g D i m i A s L o n g D i m B A s L o n

13、g H e x = U C a s e ( H e x ) F o r i = 1 T o L e n ( H e x ) S e l e c t C a s e M i d ( H e x , L e n ( H e x ) - i + 1 , 1 ) C a s e “ 0 “ : B = B + 1 6 ( i - 1 ) * 0 C a s e “ 1 “ : B = B + 1 6 ( i - 1 ) * 1 C a s e “ 2 “ : B = B + 1 6 ( i - 1 ) * 2 C a s e “ 3 “ : B = B + 1 6 ( i - 1 ) * 3 C a

14、s e “ 4 “ : B = B + 1 6 ( i - 1 ) * 4 C a s e “ 5 “ : B = B + 1 6 ( i - 1 ) * 5C a s e “ 6 “ : B = B + 1 6 ( i - 1 ) * 6 C a s e “ 7 “ : B = B + 1 6 ( i - 1 ) * 7 C a s e “ 8 “ : B = B + 1 6 ( i - 1 ) * 8 C a s e “ 9 “ : B = B + 1 6 ( i - 1 ) * 9 C a s e “ A “ : B = B + 1 6 ( i - 1 ) * 1 0 C a s e “

15、 B “ : B = B + 1 6 ( i - 1 ) * 1 1 C a s e “ C “ : B = B + 1 6 ( i - 1 ) * 1 2 C a s e “ D “ : B = B + 1 6 ( i - 1 ) * 1 3 C a s e “ E “ : B = B + 1 6 ( i - 1 ) * 1 4 C a s e “ F “ : B = B + 1 6 ( i - 1 ) * 1 5 E n d S e l e c t N e x t i H E X _ t o _ D E C = B E n d F u n c t i o n 用途 ：将十进 制转化为 十六

16、进制 输入： D e c ( 十进制数 ) 输入数据类型： L o n g 输出： D E C _ t o _ H E X ( 十六进制数 ) 输出数据类型： S t r i n g 输入的最大数为 2 1 4 7 4 8 3 6 4 7 , 输出最大数为 7 F F F F F F F P u b l i c F u n c t i o n D E C _ t o _ H E X ( D e c A s L o n g ) A s S t r i n g D i m a A s S t r i n g D E C _ t o _ H E X = “ “ D o W h i l e D e c

17、 0 a = C S t r ( D e c M o d 1 6 ) S e l e c t C a s e a C a s e “ 1 0 “ : a = “ A “ C a s e “ 1 1 “ : a = “ B “ C a s e “ 1 2 “ : a = “ C “ C a s e “ 1 3 “ : a = “ D “C a s e “ 1 4 “ : a = “ E “ C a s e “ 1 5 “ : a = “ F “ E n d S e l e c t D E C _ t o _ H E X = a & D E C _ t o _ H E X D e c = D e

18、c 1 6 L o o p E n d F u n c t i o n 用途 ：将十进 制转化为 八进制 输入： D e c ( 十进制数 ) 输入数据类型： L o n g 输出： D E C _ t o _ O C T ( 八进制数) 输出数据类型： S t r i n g 输入的最大数为 2 1 4 7 4 8 3 6 4 7 , 输出最大数为 1 7 7 7 7 7 7 7 7 7 7 P u b l i c F u n c t i o n D E C _ t o _ O C T ( D e c A s L o n g ) A s S t r i n g D E C _ t o _ O

19、 C T = “ “ D o W h i l e D e c 0 D E C _ t o _ O C T = D e c M o d 8 & D E C _ t o _ O C T D e c = D e c 8 L o o p E n d F u n c t i o n 用途 ：将八进 制转化为 十进制 输入： O c t ( 八进制数 ) 输入数据类型： S t r i n g 输出： O C T _ t o _ D E C ( 十进制数 ) 输出数据类型： L o n g 输入的最大数为 1 7 7 7 7 7 7 7 7 7 7 , 输出的最大数为 2 1 4 7 4 8 3 6 4

20、7 P u b l i c F u n c t i o n O C T _ t o _ D E C ( B y V a l O c t A s S t r i n g ) A s L o n g D i m i A s L o n gD i m B A s L o n g F o r i = 1 T o L e n ( O c t ) S e l e c t C a s e M i d ( O c t , L e n ( O c t ) - i + 1 , 1 ) C a s e “ 0 “ : B = B + 8 ( i - 1 ) * 0 C a s e “ 1 “ : B = B + 8

21、 ( i - 1 ) * 1 C a s e “ 2 “ : B = B + 8 ( i - 1 ) * 2 C a s e “ 3 “ : B = B + 8 ( i - 1 ) * 3 C a s e “ 4 “ : B = B + 8 ( i - 1 ) * 4 C a s e “ 5 “ : B = B + 8 ( i - 1 ) * 5 C a s e “ 6 “ : B = B + 8 ( i - 1 ) * 6 C a s e “ 7 “ : B = B + 8 ( i - 1 ) * 7 E n d S e l e c t N e x t i O C T _ t o _ D E

22、 C = B E n d F u n c t i o n 用途 ：将二进 制转化为 八进制 输入： B i n ( 二进制数 ) 输入数据类型： S t r i n g 输出： B I N _ t o _ O C T ( 八进制数) 输出数据类型： S t r i n g 输入的最大数为 2 1 4 7 4 8 3 6 4 7 个字符 P u b l i c F u n c t i o n B I N _ t o _ O C T ( B y V a l B i n A s S t r i n g ) A s S t r i n g D i m i A s L o n g D i m H A s

23、 S t r i n g I f L e n ( B i n ) M o d 3 0 T h e n B i n = S t r i n g ( 3 - L e n ( B i n ) M o d 3 , “ 0 “ ) & B i n E n d I f F o r i = 1 T o L e n ( B i n ) S t e p 3 S e l e c t C a s e M i d ( B i n , i , 3 )C a s e “ 0 0 0 “ : H = H & “ 0 “ C a s e “ 0 0 1 “ : H = H & “ 1 “ C a s e “ 0 1 0 “

24、: H = H & “ 2 “ C a s e “ 0 1 1 “ : H = H & “ 3 “ C a s e “ 1 0 0 “ : H = H & “ 4 “ C a s e “ 1 0 1 “ : H = H & “ 5 “ C a s e “ 1 1 0 “ : H = H & “ 6 “ C a s e “ 1 1 1 “ : H = H & “ 7 “ E n d S e l e c t N e x t i W h i l e L e f t ( H , 1 ) = “ 0 “ H = R i g h t ( H , L e n ( H ) - 1 ) W e n d B I

25、N _ t o _ O C T = H E n d F u n c t i o n 用途 ：将八进 制转化为 二进制 输入： O c t ( 八进制数 ) 输入数据类型： S t r i n g 输出： O C T _ t o _ B I N ( 二进制数) 输出数据类型： S t r i n g 输入的最大数为 2 1 4 7 4 8 3 6 4 7 个字符 P u b l i c F u n c t i o n O C T _ t o _ B I N ( B y V a l O c t A s S t r i n g ) A s S t r i n g D i m i A s L o n

26、g D i m B A s S t r i n g F o r i = 1 T o L e n ( O c t ) S e l e c t C a s e M i d ( O c t , i , 1 ) C a s e “ 0 “ : B = B & “ 0 0 0 “ C a s e “ 1 “ : B = B & “ 0 0 1 “ C a s e “ 2 “ : B = B & “ 0 1 0 “C a s e “ 3 “ : B = B & “ 0 1 1 “ C a s e “ 4 “ : B = B & “ 1 0 0 “ C a s e “ 5 “ : B = B & “ 1 0

27、 1 “ C a s e “ 6 “ : B = B & “ 1 1 0 “ C a s e “ 7 “ : B = B & “ 1 1 1 “ E n d S e l e c t N e x t i W h i l e L e f t ( B , 1 ) = “ 0 “ B = R i g h t ( B , L e n ( B ) - 1 ) W e n d O C T _ t o _ B I N = B E n d F u n c t i o n 用途 ：将八进 制转化为 十六进制 输入： O c t ( 八进制数 ) 输入数据类型： S t r i n g 输出： O C T _ t

28、o _ H E X ( 十六进制数 ) 输出数据类型： S t r i n g 输入的最大数为 2 1 4 7 4 8 3 6 4 7 个字符 P u b l i c F u n c t i o n O C T _ t o _ H E X ( B y V a l O c t A s S t r i n g ) A s S t r i n g D i m B i n A s S t r i n g B i n = O C T _ t o _ B I N ( O c t ) O C T _ t o _ H E X = B I N _ t o _ H E X ( B i n ) E n d F u

29、n c t i o n 用途 ：将十六 进制转化 为八进制 输入： H e x ( 十六进制数 ) 输入数据类型： S t r i n g 输出： H E X _ t o _ O C T ( 八进制数 ) 输出数据类型： S t r i n g 输入的最大数为 2 1 4 7 4 8 3 6 4 7 个字符 P u b l i c F u n c t i o n H E X _ t o _ O C T ( B y V a l H e x A s S t r i n g ) A s S t r i n g D i m B i n A s S t r i n g H e x = U C a s e

30、 ( H e x ) B i n = H E X _ t o _ B I N ( H e x ) H E X _ t o _ O C T = B I N _ t o _ O C T ( B i n ) E n d F u n c t i o n V B V B V B V B 自带 函数： 十进 制转八进 制： O c t ( n u m ) O c t ( n u m ) O c t ( n u m ) O c t ( n u m ) 十六 进制转八 进制： o c t ( “ & H “ o c t ( “ & H “ o c t ( “ & H “ o c t ( “ &H “ & &

31、& & n u m ) n u m ) n u m ) n u m ) 十进 制转十六 进制： h e x ( n u m ) h e x ( n u m ) h e x ( n u m ) h e x ( n u m ) 八进 制转十六 进制： h e x ( “ & O “ h e x ( “ & O “ h e x ( “ & O “ h e x ( “ & O “ & & & & n u m ) n u m ) n u m ) n u m ) 十六 进制转换 为十进制 D i m D i m D i m D i m s t r s t r s t r s t r A s A s A s

32、 A s S t r i n g S t r i n g S t r i n g S t r i n g s t r s t r s t r s t r = = = = T e x t 2 . T e x t T e x t 2 . T e x t T e x t 2 . T e x t T e x t 2 . T e x t T e x t 1 0 . T e x t T e x t 1 0 . T e x t T e x t 1 0 . T e x t T e x t 1 0 . T e x t = = = = C L n g ( “ & H “ C L n g ( “ & H “ C L n g ( “ & H “ C L n g ( “ &H “ & & & & s t r ) s t r ) s t r ) s t r )