帮忙改精易模块

tst80tst

以下代码取自精易模块，请帮我改成允许重复数字，数组并改为文本型

  

子程序名	返回值类型	公开	备 注
文本_取出N组不重复数字			取出N组不重复数字,如：在1-100之间取出80个数字，要求不重复。
参数名	类 型	参考	可空	数组	备 注
返回取出的数组	整数型				存放取出来的数组
欲取多少组	整数型				要取多少组
最小值	整数型				要取的最小数值
最大值	整数型				要取的最大数值

变量名	类 型	静态	数组	备 注
iTotal	整数型
aryTemp	整数型		0
pAry	整数型
i	整数型
n	整数型

iTotal ＝ 最大值 － 最小值 ＋ 1
如果真 (iTotal ≤ 0 或 欲取多少组 ≤ 0)
返回 ()

重定义数组 (aryTemp, 假, iTotal)
计次循环首 (iTotal, i)
aryTemp [i] ＝ 最小值
最小值 ＝ 最小值 ＋ 1
计次循环尾 ()
置随机数种子 ()
重定义数组 (返回取出的数组, 假, 欲取多少组)
pAry ＝ 取数据_通用型_数组 (aryTemp)
计次循环首 (欲取多少组, i)
n ＝ 取随机数 (i, iTotal)
返回取出的数组 [i] ＝ aryTemp [n]
__set (pAry, (n － 1) × 4, aryTemp [i])
__set (pAry, (i － 1) × 4, aryTemp [n])
计次循环尾 ()

.版本 2<br /> <br /> .子程序 文本_取出N组不重复数字, , 公开, 取出N组不重复数字,如：在1-100之间取出80个数字，要求不重复。<br /> .参数 返回取出的数组, 整数型, 数组, 存放取出来的数组<br /> .参数 欲取多少组, 整数型, , 要取多少组<br /> .参数 最小值, 整数型, , 要取的最小数值<br /> .参数 最大值, 整数型, , 要取的最大数值<br /> .局部变量 iTotal, 整数型<br /> .局部变量 aryTemp, 整数型, , "0"<br /> .局部变量 pAry, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> iTotal ＝ 最大值 － 最小值 ＋ 1<br /> .如果真 (iTotal ≤ 0 或 欲取多少组 ≤ 0)<br />     返回 ()<br /> .如果真结束<br /> <br /> 重定义数组 (aryTemp, 假, iTotal)<br /> .计次循环首 (iTotal, i)<br />     aryTemp <i> ＝ 最小值<br />     最小值 ＝ 最小值 ＋ 1<br /> .计次循环尾 ()<br /> <br /> 置随机数种子 ()<br /> 重定义数组 (返回取出的数组, 假, 欲取多少组)<br /> pAry ＝ 取数据_通用型_数组 (aryTemp)<br /> .计次循环首 (欲取多少组, i)<br />     n ＝ 取随机数 (i, iTotal)<br />     返回取出的数组 <i> ＝ aryTemp [n]<br />     __set (pAry, (n － 1) × 4, aryTemp <i>)<br />     __set (pAry, (i － 1) × 4, aryTemp [n])<br /> .计次循环尾 ()

tst80tst

mytiger 发表于 2025-5-6 18:11
[e=0].版本 2

.子程序 文本_取出N组数字, , 公开, 取出N组数字,如：在1-100之间取出80个数字。

你的速度很快，但有个新问题，原数组怎么保留？

Ruang

  

子程序名	返回值类型	公开	备 注
MT_取随机数	整数型		高质量伪随机数 MT算法，不依赖任何CPU 或 特殊指令，干净卫生，放心食用
参数名	类 型	参考	可空	数组	备 注
min	整数型				可为负数
max	整数型				可为负数

变量名	类 型	静态	数组	备 注
p	整数型
i	整数型

如果真 (p ＝ 0)
p ＝ 申请内存 (2504, 真)
如果真 (p ＝ 0)
返回 (min)

i ＝ p
置入代码 ({ 96, 131, 120, 8, 0, 117, 88, 100, 139, 21, 32, 0, 0, 0, 100, 15, 175, 21, 36, 0, 0, 0, 100, 161, 44, 0, 0, 0, 100, 51, 5, 48, 0, 0, 0, 15, 175, 194, 105, 208, 109, 78, 198, 65, 15, 175, 85, 252, 129, 194, 57, 48, 0, 0, 139, 93, 252, 131, 195, 8, 137, 19, 49, 192, 137, 209, 193, 233, 30, 49, 209, 105, 209, 101, 137, 7, 108, 64, 1, 194, 137, 20, 131, 61, 111, 2, 0, 0, 114, 230, 232, 122, 0, 0, 0, 185, 1, 0, 0, 0, 246, 64, 4, 1, 117, 250, 135, 72, 4, 133, 201, 117, 243, 129, 56, 112, 2, 0, 0, 117, 5, 232, 91, 0, 0, 0, 139, 16, 255, 0, 139, 76, 144, 8, 199, 64, 4, 0, 0, 0, 0, 137, 200, 193, 233, 11, 49, 193, 137, 200, 37, 173, 88, 58, 255, 193, 224, 7, 49, 193, 137, 200, 37, 140, 223, 255, 255, 193, 224, 15, 49, 193, 137, 200, 193, 232, 18, 49, 200, 139, 77, 12, 139, 93, 8, 57, 217, 127, 6, 139, 77, 8, 139, 93, 12, 41, 217, 65, 133, 201, 49, 210, 247, 241, 137, 208, 1, 216, 137, 68, 36, 28, 97, 201, 194, 8, 0, 49, 246, 139, 125, 252, 87, 85, 131, 199, 8, 137, 253, 187, 141, 1, 0, 0, 70, 137, 242, 49, 192, 129, 254, 112, 2, 0, 0, 15, 68, 208, 139, 84, 149, 0, 51, 23, 129, 226, 255, 255, 255, 127, 51, 23, 137, 208, 209, 232, 137, 193, 129, 241, 223, 176, 8, 153, 128, 226, 1, 15, 68, 200, 49, 210, 129, 251, 112, 2, 0, 0, 15, 68, 218, 137, 218, 51, 76, 149, 0, 137, 15, 141, 127, 4, 67, 129, 251, 141, 1, 0, 0, 117, 179, 93, 88, 199, 0, 0, 0, 0, 0, 195 })
返回 (0)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 MT_取随机数, 整数型, , 高质量伪随机数 MT算法，不依赖任何CPU 或 特殊指令，干净卫生，放心食用<br /> .参数 min, 整数型, , 可为负数<br /> .参数 max, 整数型, , 可为负数<br /> .局部变量 p, 整数型, 静态<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (p ＝ 0)<br />     p ＝ 申请内存 (2504, 真)<br />     .如果真 (p ＝ 0)<br />         返回 (min)<br />     .如果真结束<br /> <br /> .如果真结束<br /> i ＝ p<br /> 置入代码 ({ 96, 131, 120, 8, 0, 117, 88, 100, 139, 21, 32, 0, 0, 0, 100, 15, 175, 21, 36, 0, 0, 0, 100, 161, 44, 0, 0, 0, 100, 51, 5, 48, 0, 0, 0, 15, 175, 194, 105, 208, 109, 78, 198, 65, 15, 175, 85, 252, 129, 194, 57, 48, 0, 0, 139, 93, 252, 131, 195, 8, 137, 19, 49, 192, 137, 209, 193, 233, 30, 49, 209, 105, 209, 101, 137, 7, 108, 64, 1, 194, 137, 20, 131, 61, 111, 2, 0, 0, 114, 230, 232, 122, 0, 0, 0, 185, 1, 0, 0, 0, 246, 64, 4, 1, 117, 250, 135, 72, 4, 133, 201, 117, 243, 129, 56, 112, 2, 0, 0, 117, 5, 232, 91, 0, 0, 0, 139, 16, 255, 0, 139, 76, 144, 8, 199, 64, 4, 0, 0, 0, 0, 137, 200, 193, 233, 11, 49, 193, 137, 200, 37, 173, 88, 58, 255, 193, 224, 7, 49, 193, 137, 200, 37, 140, 223, 255, 255, 193, 224, 15, 49, 193, 137, 200, 193, 232, 18, 49, 200, 139, 77, 12, 139, 93, 8, 57, 217, 127, 6, 139, 77, 8, 139, 93, 12, 41, 217, 65, 133, 201, 49, 210, 247, 241, 137, 208, 1, 216, 137, 68, 36, 28, 97, 201, 194, 8, 0, 49, 246, 139, 125, 252, 87, 85, 131, 199, 8, 137, 253, 187, 141, 1, 0, 0, 70, 137, 242, 49, 192, 129, 254, 112, 2, 0, 0, 15, 68, 208, 139, 84, 149, 0, 51, 23, 129, 226, 255, 255, 255, 127, 51, 23, 137, 208, 209, 232, 137, 193, 129, 241, 223, 176, 8, 153, 128, 226, 1, 15, 68, 200, 49, 210, 129, 251, 112, 2, 0, 0, 15, 68, 218, 137, 218, 51, 76, 149, 0, 137, 15, 141, 127, 4, 67, 129, 251, 141, 1, 0, 0, 117, 179, 93, 88, 199, 0, 0, 0, 0, 0, 195 })<br /> 返回 (0)

试试看这个

zainex

直接取随机数就行了，这个有概率出现重复数字：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
文本_取出N组数字
参数名	类 型	参考	可空	数组	备 注
数组	文本型
数量	整数型
最小值	整数型
最大值	整数型

变量名	类 型	静态	数组	备 注
数	整数型

置随机数种子 ()
清除数组 (数组)
计次循环首 (数量, 数)
加入成员 (数组, 到文本 (取随机数 (最小值, 最大值)))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
数组	文本型		0

文本_取出N组数字 (数组, 20, 10, 100)
调试输出 (数组)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 文本_取出N组数字<br /> .参数 数组, 文本型, 数组<br /> .参数 数量, 整数型<br /> .参数 最小值, 整数型<br /> .参数 最大值, 整数型<br /> .局部变量 数, 整数型<br /> <br /> 置随机数种子 ()<br /> 清除数组 (数组)<br /> .计次循环首 (数量, 数)<br />     加入成员 (数组, 到文本 (取随机数 (最小值, 最大值)))<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数组, 文本型, , "0"<br /> <br /> 文本_取出N组数字 (数组, 20, 10, 100)<br /> 调试输出 (数组)

mytiger

  

子程序名	返回值类型	公开	备 注
文本_取出N组数字			取出N组数字,如：在1-100之间取出80个数字。
参数名	类 型	参考	可空	数组	备 注
返回取出的数组	文本型				存放取出来的数组
欲取多少组	整数型				要取多少组
最小值	整数型				要取的最小数值
最大值	整数型				要取的最大数值

变量名	类 型	静态	数组	备 注
n	整数型

置随机数种子 ()
重定义数组 (返回取出的数组, 假, 欲取多少组)
计次循环首 (欲取多少组, n)
返回取出的数组 [n] ＝ 到文本 (取随机数 (最小值, 最大值))
计次循环尾 ()

.版本 2<br /> <br /> .子程序 文本_取出N组数字, , 公开, 取出N组数字,如：在1-100之间取出80个数字。<br /> .参数 返回取出的数组, 文本型, 数组, 存放取出来的数组<br /> .参数 欲取多少组, 整数型, , 要取多少组<br /> .参数 最小值, 整数型, , 要取的最小数值<br /> .参数 最大值, 整数型, , 要取的最大数值<br /> .局部变量 n, 整数型<br /> <br /> 置随机数种子 ()<br /> 重定义数组 (返回取出的数组, 假, 欲取多少组)<br /> .计次循环首 (欲取多少组, n)<br />     返回取出的数组 [n] ＝ 到文本 (取随机数 (最小值, 最大值))<br /> .计次循环尾 ()