作者在 2016-10-10 12:35:26 发布以下内容
* 汉字十进制转换为二进制
N10=ASC('编')
MESSAGEBOX('编')
C02=''
Do While N10>0
n=Mod(N10,2)
N10=int(N10/2)
C02=Str(n,1)+C02
enddo
MESSAGEBOX(C02)
* 汉字二进制转换为十进制
N10=0
FOR lnI=1 TO LEN(c02)
N10=N10+VAL(SUBSTR(C02,lnI,1))*2^(LEN(C02)-lnI)
ENDFOR
MESSAGEBOX(CHR(N10))
