FY100工作组——2 10 16进制数转换

http://www.brsbox.com/filebox/down/fc/0ffe709de09b6426eff96ade6897f880
该地址为永久下载地址

R进制转成10进制：各位数乘以权，积相加。
10进制转成R进制：除R取余，R被整除，循环。
10进制小数转成R进制：乘R取整。一直乘以2，取整数位数值，到积为1.0为止。
2进制转8进制：2进制每3位相当于8进制1位，每3位求整，相加。
2进制转16进制：2进制每4位相当于16进制1位，每4位求整，相加。
     ' 从2进制转换到10进制
     Function D2_10(ByVal s As String) As Integer
         Dim ret As Integer = 0, length As Integer = s.Length - 1
         For Each c As Char In s
             Dim temp As Integer = Val(c)
             ret += temp * (2 ^ length)
             length -= 1
         Next
         Return ret
     End Function
     ' 从10进制转换到2进制
     Public Function D10_2(ByVal Dec As Integer) As String
         Dim ret As String = ""
         Do While Dec > 0
             ret = Dec Mod 2 & ret
             Dec = Dec \ 2
         Loop
         Return ret
         ' 方法2
         Return Convert.ToString(Dec, 2)
     End Function
     ' 从8进制转换到10进制
     Function D8_10(ByVal s As String) As Integer
         Dim ret As Integer = 0, length As Integer = s.Length - 1
         For Each c As Char In s
             Dim temp As Integer = Val(c)
             ret += temp * (8 ^ length)
             length -= 1
         Next
         Return ret
     End Function
     ' 从10进制转换到8进制
     Public Function D10_8(ByVal Dec As Integer) As String
         Dim ret As String = ""
         Do While Dec > 0
             ret = Dec Mod 8 & ret
             Dec = Dec \ 8
         Loop
         Return ret
         ' 方法2
         Return Convert.ToString(Dec, 8)
     End Function
     ' 转小数
     Public Function S10_2(ByVal Dec As Decimal) As String
         Dim ret As String = "", temp As Integer = 0
         Do Until Dec = 0
             Dec *= 2 '乘权
             temp = Math.Floor(Dec) '取整
             If temp = 1 Then Dec -= 1.0
             'MsgBox(Dec & " : " & temp)
             ret = ret & temp
         Loop
         Return ret
     End Function


呵呵可是我的可是返回值的，极大地方便了编程

我记得我读高中的时候参加计算机比赛就是弄得这个，结果只得了个省三等奖。。。气死我了

楼主你们工作组是干嘛的？缺人不？

回复：3楼
我以前弄出了一个公式，从2到16进制可以用10进制做中介任意的转换，比你这个简明很多

进制转换这东西...

貌似计算器都搞定