十进位，八进制，十六进位，二进位相互转换大全 ' 用途：将十进位转化为二进位 ' 输入：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