怎样从一个文件夹内随机取出图片

无言对上

例如一个文件夹内有20张图片，想从内随机取出4张图片，要求这四张图片互不重复，且下一次取出的4张与上一次的4张也不重复，一直到全部取完，不知道代码该怎么写。
重点是每组4张照片不重复，例如第一次取出结果是1.jpg  2.jpg 3.jpg 4.jpg 那么第二次取出的结果即便是2.jpg 3.jpg 4.jpg 5.jpg 那与第一次的结果也视为不重复。

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文件组	文本型		0
文件名	文本型
a	整数型
n	整数型

如果真 (取数组成员数 (文件组) ＝ 0)
文件_枚举 (“D:/1”, “*.jpg”, 文件组, 真)
置随机数种子 ()
如果 (取数组成员数 (文件组) ≥ 4)
计次循环首 (4, n)
a ＝ 取随机数 (1, 取数组成员数 (文件组))
文件名 ＝ 文件组 [a]
删除成员 (文件组, a, 1)
调试输出 (文件名)
计次循环尾 ()
计次循环首 (取数组成员数 (文件组), n)
a ＝ 取随机数 (1, 取数组成员数 (文件组))
文件名 ＝ 文件组 [a]
删除成员 (文件组, a, 1)
调试输出 (文件名)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件组, 文本型, 静态, "0"<br /> .局部变量 文件名, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (取数组成员数 (文件组) ＝ 0)<br />     文件_枚举 (“D:/1”, “*.jpg”, 文件组, 真)<br /> .如果真结束<br /> 置随机数种子 ()<br /> .如果 (取数组成员数 (文件组) ≥ 4)<br />     .计次循环首 (4, n)<br />         a ＝ 取随机数 (1, 取数组成员数 (文件组))<br />         文件名 ＝ 文件组 [a]<br />         删除成员 (文件组, a, 1)<br />         调试输出 (文件名)<br />     .计次循环尾 ()<br /> .否则<br />     .计次循环首 (取数组成员数 (文件组), n)<br />         a ＝ 取随机数 (1, 取数组成员数 (文件组))<br />         文件名 ＝ 文件组 [a]<br />         删除成员 (文件组, a, 1)<br />         调试输出 (文件名)<br />     .计次循环尾 ()<br /> .如果结束

开水养鱼

文件枚举取出文件数 随机数（1，文件数） 然后随机数文件

hongqingfeng

1234  2345  叫不重复？

chenboss

  

顺序不重复

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

变量名	类 型	静态	数组	备 注
f	文本型		0
a	整数型
i	整数型
path	文本型
f2	文本型
f3	文本型
ff	文本型		0

如果真 (path ＝ “”)
path ＝ 浏览文件夹 (“”, )
文件_枚举 (path, “*.bmp”, f, 真, )

如果真 (取数组成员数 (f) ≥ 4)
置随机数种子 ()
判断循环首 (f2 ＝ f3)
计次循环首 (取数组成员数 (f), i)
交换变量 (f [i], f [取随机数 (1, 取数组成员数 (f))])
f2 ＝ f2 ＋ f [i]
计次循环尾 ()
计次循环首 (4, i)
加入成员 (ff, f [i])
计次循环尾 ()
判断循环尾 ()
f3 ＝ f2
计次循环首 (4, i)
调试输出 (ff [i])
计次循环尾 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库

顺序不重复<br /> .版本 2<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 f, 文本型, 静态, "0"<br /> .局部变量 a, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 path, 文本型, 静态<br /> .局部变量 f2, 文本型<br /> .局部变量 f3, 文本型<br /> .局部变量 ff, 文本型, , "0"<br /> <br /> .如果真 (path ＝ “”)<br />     path ＝ 浏览文件夹 (“”, )<br />     文件_枚举 (path, “*.bmp”, f, 真, )<br /> .如果真结束<br /> <br /> .如果真 (取数组成员数 (f) ≥ 4)<br />     置随机数种子 ()<br />     .判断循环首 (f2 ＝ f3)<br />         .计次循环首 (取数组成员数 (f), i)<br />             交换变量 (f <i>, f [取随机数 (1, 取数组成员数 (f))])<br />             f2 ＝ f2 ＋ f <i><br />         .计次循环尾 ()<br />         .计次循环首 (4, i)<br />             加入成员 (ff, f <i>)<br />         .计次循环尾 ()<br />     .判断循环尾 ()<br />     f3 ＝ f2<br />     .计次循环首 (4, i)<br />         调试输出 (ff <i>)<br />     .计次循环尾 ()

chenboss

这个

  

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

变量名	类 型	静态	数组	备 注
f	文本型		0
a	整数型
i	整数型
path	文本型
f2	文本型
f3	文本型
ff	文本型		0

如果真 (path ＝ “”)
path ＝ 浏览文件夹 (“”, )
文件_枚举 (path, “*.bmp”, f, 真, )

如果真 (取数组成员数 (f) ≥ 4)
置随机数种子 ()
判断循环首 (f2 ＝ f3)
计次循环首 (取数组成员数 (f), i)
交换变量 (f [i], f [取随机数 (1, 取数组成员数 (f))])
f2 ＝ f2 ＋ f [i]
计次循环尾 ()
清除数组 (ff)
计次循环首 (4, i)
加入成员 (ff, f [i])
计次循环尾 ()
判断循环尾 ()
f3 ＝ f2
计次循环首 (4, i)
调试输出 (ff [i])
计次循环尾 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 f, 文本型, 静态, "0"<br /> .局部变量 a, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 path, 文本型, 静态<br /> .局部变量 f2, 文本型<br /> .局部变量 f3, 文本型<br /> .局部变量 ff, 文本型, , "0"<br /> <br /> .如果真 (path ＝ “”)<br />     path ＝ 浏览文件夹 (“”, )<br />     文件_枚举 (path, “*.bmp”, f, 真, )<br /> .如果真结束<br /> <br /> .如果真 (取数组成员数 (f) ≥ 4)<br />     置随机数种子 ()<br />     .判断循环首 (f2 ＝ f3)<br />         .计次循环首 (取数组成员数 (f), i)<br />             交换变量 (f <i>, f [取随机数 (1, 取数组成员数 (f))])<br />             f2 ＝ f2 ＋ f <i><br />         .计次循环尾 ()<br />         清除数组 (ff)<br />         .计次循环首 (4, i)<br />             加入成员 (ff, f <i>)<br />         .计次循环尾 ()<br />     .判断循环尾 ()<br />     f3 ＝ f2<br />     .计次循环首 (4, i)<br />         调试输出 (ff <i>)<br />     .计次循环尾 ()

鹏书

  

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

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

a ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 }
置随机数种子 ()
计次循环首 (4, )
i ＝ 取随机数 (1, 取数组成员数 (a))
调试输出 (i)
读入文件 (“E:\” ＋ 到文本 (a [i]) ＋ “.jpg”)
删除成员 (a, i, 1)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 a, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> a ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 }<br /> 置随机数种子 ()<br /> .计次循环首 (4, )<br />     i ＝ 取随机数 (1, 取数组成员数 (a))<br />     调试输出 (i)<br />     读入文件 (“E:\” ＋ 到文本 (a <i>) ＋ “.jpg”)<br />     删除成员 (a, i, 1)<br /> .计次循环尾 ()

补充内容 (2024-11-14 15:33):
这样比较简单快速

补充内容 (2024-11-14 15:34):
直接复制 数组下标 []  会变成<> 要手动改一下