易语言 怎么 随机抽取自定义的名字? 麻烦发一个源码。谢谢!
发布网友
发布时间:2022-05-03 09:05
我来回答
共1个回答
热心网友
时间:2023-10-18 03:59
.程序集 窗口程序集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])
.计次循环尾 ()
.判断循环尾 ()
热心网友
时间:2023-10-18 03:59
.程序集 窗口程序集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])
.计次循环尾 ()
.判断循环尾 ()
热心网友
时间:2023-10-18 03:59
.程序集 窗口程序集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])
.计次循环尾 ()
.判断循环尾 ()