' 用途：将十进制转化为二 进 制' 输入：Dec(十进制数)' 输入数据类型：Long' 输出：DEC_to_BIN(二 进 制数)' 输出数据类型：String' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)Public Function DEC_to_BIN(Byval Dec As Long) As String DEC_to_BIN = "" Do While Dec > 0 DEC_to_BIN = Dec Mod 2 & Read More
