7,785
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
bydisplay 2003-05-08
- 打赏
- 举报
同意 chenxiang_2001(皮皮)
DaiLM 2003-05-08
- 打赏
- 举报
自己写个方法吧！
chenxiang_2001 2003-05-08
- 打赏
- 举报
如果要输出8位的二进制数
dim a as type, b as string
if a and 128 then b = "1" else b= "0"
if a and 64 then b =b & "1" else b= b & "0"
if a and 32 then b =b & "1" else b= b & "0"
if a and 16 then b =b & "1" else b= b & "0"
if a and 8 then b =b & "1" else b= b & "0"
if a and 4 then b =b & "1" else b= b & "0"
if a and 2 then b =b & "1" else b= b & "0"
if a and 1 then b =b & "1" else b= b & "0"
dim a as type, b as string
if a and 128 then b = "1" else b= "0"
if a and 64 then b =b & "1" else b= b & "0"
if a and 32 then b =b & "1" else b= b & "0"
if a and 16 then b =b & "1" else b= b & "0"
if a and 8 then b =b & "1" else b= b & "0"
if a and 4 then b =b & "1" else b= b & "0"
if a and 2 then b =b & "1" else b= b & "0"
if a and 1 then b =b & "1" else b= b & "0"
