易语言随机抽取一个数值的源码

.程序集 窗口程序集1

.程序集变量 名字组, 文本型, , "0"

.子程序 __启动窗口_创建完毕

名字组 ＝ { “赵1”, “赵2”, “赵3”, “赵4”, “赵5”, “赵6”, “赵7”, “赵8” }

置随机数种子 ()

编辑框1.标记 ＝ “1”

编辑框2.标记 ＝ “2”

编辑框3.标记 ＝ “3”

编辑框4.标记 ＝ “4”

编辑框5.标记 ＝ “5”

编辑框6.标记 ＝ “6”

编辑框7.标记 ＝ “7”

编辑框8.标记 ＝ “8”

.子程序 _按钮1_被单击

.局部变量 文本, 文本型

.局部变量 临时数组, 文本型, , "0"

.局部变量 y, 整数型

.局部变量 x, 整数型

.局部变量 编辑框变量, 编辑框

临时数组 ＝ 名字组

.判断循环首 (取数组成员数 (临时数组) ＞ 0)

x ＝ 取随机数 (1, 取数组成员数 (临时数组))

文本 ＝ 文本 ＋ “[” ＋ 临时数组 [x] ＋ “]”

编辑框变量 ＝ 取标记组件 (取数组成员数 (临时数组))

编辑框变量.内容 ＝ 临时数组 [x]

清除数组 (临时数组)

.计次循环首 (取数组成员数 (名字组), y)

.如果真 (寻找文本 (文本, “[” ＋ 名字组 [y] ＋ “]”, 0, 假) ＜ 0)

加入成员 (临时数组, 名字组 [y])

.如果真结束

调试输出 (名字组 [y])

.计次循环尾 ()

.判断循环尾 ()