博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2005年6月21日

摘要: 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 黄金海岸 阅读(1018) 评论(0) 推荐(0) 编辑