摘要: 十进制转换成二进制function DecToBin(number) dim remainder remainder = number do while remainder > 0 DecToBin = CStr(remainder mod 2) & DecToBin remainder = rem... 阅读全文
posted @ 2009-11-25 13:52 y0umer 阅读(204) 评论(0) 推荐(0) 编辑