二进制与十进制转换VB函数

'返回二进制数对应的十进制数值
Public Function B2D(ByVal bstr As String) As Long
Dim n As Integer
Dim s As Long
Dim i As Integer
Dim w As Integer
n = Len(Trim(bstr)) '去掉字串首尾可能有的空格并测出字串的长度
s = 0 '累加器清零
For i = n To 1 Step -1 '依次取字串的各位
w = Val(Mid(bstr, i, 1)) '把每位字符转换为数值，非法字符将视为0
s = s + 2 ^ (n - i) * w '按位计权累加
Next i
B2D = s '返回累加值
End Function

'返回十进制数对应的二进制字串
Public Function D2B(ByVal Dnum As Long) As String
Dim xx As String
Dim yy As Integer
xx = "" '字串累加清空
Do While Dnum > 0 '循环取余至小于1
yy = Dnum Mod 2 '除2取余
Dec = Dec \ 2 '除2取整
xx = Trim(Str(yy)) & xx '字串累加
Loop
D2B = xx '返回字串
End Function