# Re: 想请教如何将十进制资料转成二进制资料bit 要counter bit 值 正负缘程式该如何写

Posted by Knight on December 28, 1998 at 14:00:30:

In Reply to: 想请教如何将十进制资料转成二进制资料bit 要counter bit 值 正负缘程式该如何写 posted by phon on December 27, 1998 at 10:10:09:

: 连续读入五笔资料 然后counter bit 正缘时counter 动作
: 十进制资料 二进制资料
: 00 0000
: 03 0011
: 05 0101 结果 bit 1 =1
: 02 0010 bit 2 =2
: 00 0000 bit 3 =1
: ---------------------- bit 4 =0
: bit 4321
: 请教如何将十进制转成二进制8 个bit (布林)?
Dim I As String, T
T = 300
While T <> 0
I = Right(Str(T Mod 2), 1) + I
T = T \ 2
Wend
Print I
以除2一直除即可
: 正负缘之判断该如何写?
如果是0->1可以用and or 或string 比较来作
: 感激不尽..................

Follow Ups: