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

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

本文地址：http://com.8s8s.com/it/it8491.htm