vb现在都快绝版了吧。。
哈哈,但是我现在的工作用的就是vb。
所以把这个分享出来。
十进制和二进制换算
还有个二进制小数部分换算成十进制小数部分
'十进制装换为二进制
'参数dec十进制的数,BinLen换算的二进制位数
Public Function DecToBin(dec As Double, BinLen As Byte) As String
Dim binStr As String
Dim a As Double
Dim i As Integer
Do While dec <> 0
a = dec Mod 2
binStr = a & binStr
dec = dec \ 2
Loop
For i = 1 To 32 - Len(binStr)
binStr = "0" & binStr
Next
DecToBin = binStr
End Function
'二进制换算为十进制
'参数Bin二进制的数
Public Function BinToDec(Bin As String) As Double
Dim i As Integer
Dim s As Integer
s = Len(Bin)
Dim decStr As Double
For i = 1 To s
decStr = decStr + Val(Mid(Bin, i, 1)) * 2 ^ (s - i)
Next i
BinToDec = decStr
End Function
'小数二进制换算十进制
'参数Bin 小数部分二进制数。换算出来是十进制的小数部分
Public Function dBinToDec(Bin As String) As Double
Dim i As Integer
Dim s As Integer
s = Len(Bin)
Dim decStr As Double
For i = 1 To s
decStr = decStr + Val(Mid(Bin, i, 1)) * 2 ^ (-i)
Next i
dBinToDec = decStr
End Function