【文件属性】：
文件名称：十进位，八进制，十六进位，二进位相互转换大全
文件大小：8KB
文件格式：TXT
更新时间：2013-08-11 10:48:15
十进位 八进制 十六进位 二进位 相互转换大全
十进位，八进制，十六进位，二进位相互转换大全
' 用途：将十进位转化为二进位
' 输入：Dec(十进位数字)
' 输入资料类型：Long
' 输出：DEC_to_BIN(二进位数字)
' 输出资料类型：String
' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)
Public Function DEC_to_BIN(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function