取列表随机并打乱顺序

595262556

求大神给个范例

例如文档有
大神1
大神2
大神99

取4个但不能重复





补充内容 (2020-2-10 00:26):
数字不是纯粹数字 是为了说明有多少个不同的用户 而不是数字

寒潮

  

变量名	类 型	静态	数组	备 注
局_原始文本	文本型
局_原始文本_数组	文本型		0
局_取出数量	整数型
局_位置_数组	整数型
局_计次	整数型
局_新文本	文本型

局_原始文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\文档.txt”))
局_原始文本_数组 ＝ 分割文本 (局_原始文本, #换行符, )
局_取出数量 ＝ 4
文本_取出N组不重复数字 (局_位置_数组, 局_取出数量, 1, 取数组成员数 (局_原始文本_数组))
局_新文本 ＝ “”
计次循环首 (局_取出数量, 局_计次)
如果真 (局_新文本 ≠ “”)
局_新文本 ＝ 局_新文本 ＋ #换行符
局_新文本 ＝ 局_新文本 ＋ 局_原始文本_数组 [局_位置_数组 [局_计次]]
计次循环尾 ()
调试输出 (局_新文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_原始文本, 文本型<br /> .局部变量 局_原始文本_数组, 文本型, , "0"<br /> .局部变量 局_取出数量, 整数型<br /> .局部变量 局_位置_数组, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_新文本, 文本型<br /> <br /> 局_原始文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\文档.txt”))<br /> 局_原始文本_数组 ＝ 分割文本 (局_原始文本, #换行符, )<br /> 局_取出数量 ＝ 4<br /> 文本_取出N组不重复数字 (局_位置_数组, 局_取出数量, 1, 取数组成员数 (局_原始文本_数组))<br /> 局_新文本 ＝ “”<br /> .计次循环首 (局_取出数量, 局_计次)<br />     .如果真 (局_新文本 ≠ “”)<br />         局_新文本 ＝ 局_新文本 ＋ #换行符<br />     .如果真结束<br />     局_新文本 ＝ 局_新文本 ＋ 局_原始文本_数组 [局_位置_数组 [局_计次]]<br /> <br /> .计次循环尾 ()<br /> 调试输出 (局_新文本)

jackliuwenli

走一回

总共有99个，随机后，基本上不可能再有重复。。
如果有重复，基本上比500万大奖的概率要低上几个数量级都不止。
在你的有生之年是不可能有重复的。

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
array	文本型		0
temp	文本型
随机序号

清除数组 (array)
置随机数种子 ()
计次循环首 (99, i)
加入成员 (array, “大神” ＋ 到文本 (i))
计次循环尾 ()
计次循环首 (99, i)
随机序号 ＝ 取随机数 (1, 99)
temp ＝ array [随机序号]
array [随机序号] ＝ array [i]
array [i] ＝ temp
计次循环尾 ()
计次循环首 (4, i)
调试输出 (array [i])
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 array, 文本型, , "0"<br /> .局部变量 temp, 文本型<br /> .局部变量 随机序号<br /> <br /> 清除数组 (array)<br /> 置随机数种子 ()<br /> .计次循环首 (99, i)<br />     加入成员 (array, “大神” ＋ 到文本 (i))<br /> .计次循环尾 ()<br /> .计次循环首 (99, i)<br />     随机序号 ＝ 取随机数 (1, 99)<br />     temp ＝ array [随机序号]<br />     array [随机序号] ＝ array <i><br />     array <i> ＝ temp<br /> .计次循环尾 ()<br /> .计次循环首 (4, i)<br />     调试输出 (array <i>)<br /> .计次循环尾 ()

数据压缩

测试.e (843.9 KB, 下载次数: 7)

2020-2-9 22:46 上传

点击文件名下载附件