随机抽取选成员名单程序，可加入成员名单等

共成员 ＝ 取数组成员数 (成员名单)
.如果真 (共成员 ≤ 0)
时钟_抽取事件.时钟周期 ＝ 0
信息框 (“当前成员名单人数为 0 无法继续抽选”, 0, )
连续赋值 (假, 按钮_开始抽取.禁止, 按钮_重新开始.禁止)
返回 ()
.如果真结束
标签_抽取显示.标题 ＝ 到文本 (到数值 (标签_抽取显示.标题) － 1)
.如果真 (标签_抽取显示.标题 ＝ “0”)
置随机数种子 ()
选取成员 ＝ 取随机数 (1, 共成员)
标签_抽取显示.标题 ＝ 成员名单 [选取成员]
选取次数 ＝ 选取次数 ＋ 1
时钟_抽取事件.时钟周期 ＝ 0
编辑框_加入记录.加入文本 (“第” ＋ 到文本 (选取次数) ＋ “轮抽取成员是：” ＋ 标签_抽取显示.标题 ＋ #换行符)
连续赋值 (假, 按钮_开始抽取.禁止, 按钮_重新开始.禁止)