易语言从000-999中用什么公式提取只含有0和1的三位数？

Question

000-999一共1000个三位数，怎么只提取其中只含有0和1的，并直接显示在编辑框中，比如001 010 011 012 013 014 015 016 017 018 019 021 031 041 051 061 071 081 091 100 101 102 103 104 105 106 107 108 109 110 120 130 140 150 160 170 180 190 201 210 301 310 401 410 501 510 601 610 701 710 801 810 901 910 。请赐教！！！

Answer 1

' 你的表述是只含有0和1，你给的答案是必须有0和1.按你的答案做了个。
.版本 2
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "1000"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 符合条件1, 整数型
.局部变量 符合条件2, 整数型
.计次循环首 (1000, i) ' 创建数组存001到999
j ＝ i － 1
数组 [i] ＝ 格式化文本 (“%03d”, j)
.计次循环尾 ()
.计次循环首 (1000, i) ' 判断符合条件的
.计次循环首 (3, j)
.如果真 (取文本中间 (数组 [i], j, 1) ＝ “1”)
符合条件1 ＝ 1
.如果真结束
.如果真 (取文本中间 (数组 [i], j, 1) ＝ “0”)
符合条件2 ＝ 1
.如果真结束
.如果真 (符合条件1 ≥ 1 且 符合条件2 ≥ 1)
编辑框1.加入文本 (数组 [i] ＋ “ ”)
跳出循环 ()
.如果真结束
.计次循环尾 ()
符合条件1 ＝ 0
符合条件2 ＝ 0
.计次循环尾 ()