Question

易语言 置随机数种子 随机数

我有5个编辑框
编辑框1 - 5 （用来输入当天工作人员的代号）
然后分别 有5个工作岗位
A1 E1 GH FY P1
如何设置 在输入完工作人员代号后 按下按钮 随机赋予工作岗位
我新手 麻烦 用代码教

Answer 1

.版本 2

.程序集 窗口程序集1

.程序集变量 岗位, 文本型, , "5"

.程序集变量 代号, 文本型, , "5"

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

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

.局部变量 数1, 整数型

.局部变量 数2, 整数型

.局部变量 数3, 整数型

.局部变量 数4, 整数型

.局部变量 数5, 整数型

岗位 ＝ { “A1”, “E1”, “GH”, “FY”, “P1” }

.计次循环首 (5, 数1)

    .计次循环首 (5, 数2)

        .如果真 (数2 ＝ 数1)

            到循环尾 ()

        .如果真结束

        .计次循环首 (5, 数3)

            .如果真 (数3 ＝ 数1 或 数3 ＝ 数2)

                到循环尾 ()

            .如果真结束

            .计次循环首 (5, 数4)

                .如果真 (数4 ＝ 数1 或 数4 ＝ 数2 或 数4 ＝ 数3)

                    到循环尾 ()

                .如果真结束

                .计次循环首 (5, 数5)

                    .如果真 (数5 ＝ 数4 或 数5 ＝ 数3 或 数5 ＝ 数2 或 数5 ＝ 数1)

                        到循环尾 ()

                    .如果真结束

                    加入成员 (数组, 到文本 (数1) ＋ 到文本 (数2) ＋ 到文本 (数3) ＋ 到文本 (数4) ＋ 到文本 (数5))

                .计次循环尾 ()

            .计次循环尾 ()

        .计次循环尾 ()

    .计次循环尾 ()

.计次循环尾 ()

标签1.是否自动折行 ＝ 真

编辑框1.获取焦点 ()

置随机数种子 ()

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

.局部变量 随机数, 整数型

.局部变量 计次, 整数型

标签1.标题 ＝ “工作分配如下:” ＋ #换行符

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

代号 [1] ＝ 编辑框1.内容

代号 [2] ＝ 编辑框2.内容

代号 [3] ＝ 编辑框3.内容

代号 [4] ＝ 编辑框4.内容

代号 [5] ＝ 编辑框5.内容

.计次循环首 (5, 计次)

    标签1.标题 ＝ 标签1.标题 ＋ “人员代号:” ＋ 代号 [计次] ＋ #换行符

    标签1.标题 ＝ 标签1.标题 ＋ “岗位:” ＋ 岗位 [到整数 (取文本中间 (数组 [随机数], 计次, 1))] ＋ #换行符

.计次循环尾 ()

Answer 2

先看图片吧！合适你就下载！

Answer 3

手机发不了代码，可以发源码