易语言二进制转换问题

Question

点击按钮时，编辑框2的内容就会显示出编辑框1的二进制。

Answer 1

Private Sub Command2_Click() '进制转换 10-->2
dim a,b
a= int(val(text1))
Do
b = a Mod 2 & b
a = a \ 2
Loop While a
text2 = b
End sub

Answer 2

.版本 2

.局部变量 文本, 文本型
.局部变量 二进制文本, 文本型
.局部变量 十进制数值, 整数型

十进制数值 ＝ 到数值 (编辑框1.内容)
.判断循环首 (十进制数值 ＞ 0)
文本 ＝ 文本 ＋ 字符 (取代码 (“0”, ) ＋ 十进制数值 ％ 2)
十进制数值 ＝ 十进制数值 ÷ 2
.判断循环尾 ()
.计次循环首 (取文本长度 (文本), 十进制数值)
二进制文本 ＝ 二进制文本 ＋ 取文本中间 (文本, 取文本长度 (文本) － 十进制数值 ＋ 1, 1)
.计次循环尾 ()
编辑框2.内容 ＝ 二进制文本本回答被网友采纳