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

mimystery艾特126.com

.程序集 窗口程序集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])
.计次循环尾 ()
.判断循环尾 ()

把姓名或数字 逐个放到一个一维数组中 然后置随机种子取随机数，然后根据这个随机数 将数组中的值 取出 放到你要显示的组件中（如编辑框）。 .版本 2 .程序集 窗口程序集1 .程序集变量 姓名数组, 文本型, , "0" .程序集变量 点击数, 整数型 .子程序 _按钮1_被单击 .局部变量 随机数, 整数型 .局部变量 n, 整数型 ' 循环加入不同姓名 .计次循环首 (10, n) 加入成员 (姓名数组, “张三” ＋ 到文本 (n)) .计次循环尾 () ' 置随机种子并 取出数组范围内的随机数 置随机数种子 (取秒 (取现行时间 ()) ＋ 点击数) 随机数 ＝ 取随机数 (1, 取数组成员数 (姓名数组)) ' 将内容打印到编辑框中 编辑框1.内容 ＝ 姓名数组 [随机数] ' 增加随机种子的随机性 点击数 ＝ 点击数 ＋ 1 补充 问：可以啊，但是为什么随机抽取的名字后面都加数字？ 答：我是给你举个例子所以加入了后面带数字的名字 其实实际中 这些名字一般是由操作者加入的 ，不是程序设计时添加的。

热问问www滴滴答答滴滴答答滴滴答答滴滴答答滴滴答答滴滴答答滴滴答答我打算滴滴答答滴滴答答滴滴答答的存在

名字组 ＝ { “赵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])

置随机数种子 () 取随机数 (0, 1)