把十进制转换成二进制:
dim lvalue as long
dim sBinary as string
Do While lValue > 0
sBinary = CStr(lValue Mod 2) & sBinary
lValue = lValue \ 2
Loop
sBinary就是转换后的二进制字符串
把十进制转换成二进制:
dim lvalue as long
dim sBinary as string
Do While lValue > 0
sBinary = CStr(lValue Mod 2) & sBinary
lValue = lValue \ 2
Loop
sBinary就是转换后的二进制字符串