转换十进制为二进制的函数

80酷酷网    80kuku.com

  二进制|函数|十进制|转换function zhuan(m) '翻译数据
for i=0 to 12
p=m mod 2
if p=1 then
have=have&i&","
end if
m=int(m/2)
if m=0 then
zhuan=have
exit function
end if
next
end function













分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: