取随机不重复数的问题

pxzhuai01

' 我想取随机数到编辑框1，每次取一个且和之前取过的不重复，也就是说0到30一共31个数字，0-30都取完后标签1.标题= 全部取完
' 本人小白，修改后请上传源码的附件，谢谢

置随机数种子 ()
a ＝ 取随机数 (0, 30)
编辑框1.内容 ＝ 到文本 (a)

zainex

  

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

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

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

如果真 (取数组成员数 (数组) ＝ 0)
计次循环首 (31, 数)
加入成员 (数组, 数 － 1)
计次循环尾 ()
置随机数种子 ()
计次循环首 (取数组成员数 (数组), 数)
交换变量 (数组 [数], 数组 [取随机数 (1, 取数组成员数 (数组))])
计次循环尾 ()
如果 (下标 ＜ 取数组成员数 (数组))
下标 ＝ 下标 ＋ 1
编辑框1.内容 ＝ 到文本 (数组 [下标])
标签1.标题 ＝ “全部取完”

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 整数型, 静态, "0"<br /> .局部变量 数, 整数型<br /> .局部变量 下标, 整数型, 静态<br /> <br /> .如果真 (取数组成员数 (数组) ＝ 0)<br />     .计次循环首 (31, 数)<br />         加入成员 (数组, 数 － 1)<br />     .计次循环尾 ()<br />     置随机数种子 ()<br />     .计次循环首 (取数组成员数 (数组), 数)<br />         交换变量 (数组 [数], 数组 [取随机数 (1, 取数组成员数 (数组))])<br />     .计次循环尾 ()<br /> .如果真结束<br /> .如果 (下标 ＜ 取数组成员数 (数组))<br />     下标 ＝ 下标 ＋ 1<br />     编辑框1.内容 ＝ 到文本 (数组 [下标])<br /> .否则<br />     标签1.标题 ＝ “全部取完”

效果：

zainex

如果不会复制代码，可以直接下载： 例子.zip (62.2 KB, 下载次数: 2)

昨天 12:12 上传

点击文件名下载附件

pxzhuai01

zainex 发表于 2026-2-21 12:12
如果不会复制代码，可以直接下载：

都取完之后报错，组数成员超出自定义范围

zainex

  

下标 ≤ 取数组成员数 (数组)

下标 ≤ 取数组成员数 (数组)

改成

  

下标 ＜ 取数组成员数 (数组)

下标 ＜ 取数组成员数 (数组)

例子.zip (1.41 KB, 下载次数: 2)

昨天 12:23 上传

点击文件名下载附件

pxzhuai01

zainex 发表于 2026-2-21 12:23
下标 ≤ 取数组成员数 (数组)
改成
下标 ＜ 取数组成员数 (数组)

谢谢大佬