《二进制与十进制转换VB函数.docx》由会员分享,可在线阅读,更多相关《二进制与十进制转换VB函数.docx(2页珍藏版)》请在三一办公上搜索。
二进制与十进制转换VB函数返回二进制数对应的十进制数值Public Function B2D(ByVal bstr As String) As LongDim n As IntegerDim s As LongDim i As IntegerDim w As Integern = Len(Trim(bstr) 去掉字串首尾可能有的空格并测出字串的长度s = 0 累加器清零For i = n To 1 Step -1 依次取字串的各位w = Val(Mid(bstr, i, 1) 把每位字符转换为数值,非法字符将视为0s = s + 2 (n - i) * w 按位计权累加Next iB2D = s 返回累加值End Function返回十进制数对应的二进制字串Public Function D2B(ByVal Dnum As Long) As StringDim xx As StringDim yy As Integerxx = 字串累加清空Do While Dnum > 0 循环取余至小于1yy = Dnum Mod 2 除2取余Dec = Dec 2 除2取整xx = Trim(Str(yy) & xx 字串累加LoopD2B = xx 返回字串End Function