二进制转十进制

算法 | 2020-06-15 10:28:46 | 阅读 266 次 | 评论(0)
CLEAR
n10=ASC('D')
c02='' 
DO WHILE n10 > 0 
	n = MOD(n10, 2) 
	n10 = INT(n10 / 2) 
	c02=STR(n, 1) + c02 
ENDDO
MESSAGEBOX(c02)





-------------------------------- 作者在 2020-06-15 10:32:28 补充以下内容 --------------------------------

* 二进制转换为十进制
n10 = 0
FOR lnI = 1 TO LEN(c02)
    n10 = n10 + VAL(SUBSTR(c02, lnI, 1)) * 2 ^ (LEN(c02) - lnI)
ENDFOR
MESSAGEBOX(CHR(n10))


文章评论,共0条
游客请输入验证码
浏览256269次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...