摘要：
Public Function Bin2Oct(num) Bin2Oct = Oct(Bin2Dec(num))End FunctionPublic Function Bin2Dec(num) Dim a, i, b a = Len(num) For i = 0 To a - 1 b = b + 2 ^ i * Mid(num, a - i, 1) Ne... 阅读全文
posted @ 2005-06-21 09:14 黄金海岸 阅读(1012) 评论(0) 推荐(0) 编辑