e语言整数型到二进制文本源码

整数型到二进制文本.版本 2 .子程序 _按钮1_被单击 信息框 (整数型到二进制文本 (12345678), 0, ) .子程序 整数型到二进制文本, 文本型 .参数 整数, 整数型 .局部变量 文本, 文本型 .局部变量 返回文本, 文本型 .判断循环首 (整数 ＞ 0)     文本 ＝ 文本 ＋ 字符 (取代码 (“0”, ) ＋ 整数 ％ 2)     整数 ＝ 整数 ÷ 2 .判断循环尾 () .计次循环首 (取文本长度 (文本), 整数)     返回文本 ＝ 返回文本 ＋ 取文本中间 (文本, 取文本长度 (文本) － 整数 ＋ 1, 1