请问如何随机排序图片

如果保证无重复，只要检测a(1)-a(5)有无重复，然后重新生成即可,看下面的修改后的代码：
dim（1 to 5）
for i=1 to 5
Randomize
a(i)=int(100*rnd+1)
next i
for i=1 to 4
for j=1 to 5-i
if a(j)=a(j+1) then
Randomize
a(j+1)=int(100*rnd+1)
end if
next j
next i
for i=1 to 5
str="select * from *** where id="& a(i) &""
打开数据库
读取图片
关闭数据表
next i