原文件没能上传过来 我现在在网吧
在做一个对对碰游戏 遇到一个非常头痛的问题
Form 里面有36个 Picture（0到35）的控件数组
我有0.gif到17.gif 一个18共图片
分别以已下格式存入数组a里面
a(0)="picture\0.gif"
a(1)="picture\1.gif"
.
.
.
.
a(16)="picture\16.gif"
a(17)="picture\17.gif"

我想已这种方式来显示图片
picture(0).picture=loadpicture(a(0))
但不知道怎么随机 将18张图片 成对生成在 picture1(index)里面
请高手指点迷津

[此贴子已经被作者于2007-1-14 14:05:33编辑过]

用随机函数可以吧

不可以呀 你怎么随机发呀？要配对的
我用过随机函数 但是也生成有规律的
比如 2和20 4和22 是一样的 我是要很乱的随机生成 但是要配对的

生成有什么规律？

应该问配对有什么规律没有？

我是这样的
Dim r As Integer
r=Int(Rnd*18)
Dim v As Integer
For v = 0 to 17
picture(v).picture=loadpicture(a(r))
picture(v+18).picture=loadpicture(a(r))
Next v
这个可以配对生成2个2个的 但是picture(0）和picture(18）是一样的 如此类推picture(1）和picture(19）
。。。。

那你在第一个LOADPICTURE后再RND一下不就可以吗？两个不就不一样了吗？

如果这样做的话就不配对了 那如果全部随机1的话 全部图片都一样么？

我可能明白楼主什么意思了。。。

楼主是不是想要的效果是这样的：

每个图片随机产生，但是在36个PICTURE中18个图片都得用完。。。而且每个图片都是使用两次


是不是这个意思？

是的
我这个方法行不通