原文件没能上传过来 我现在在网吧
在做一个对对碰游戏 遇到一个非常头痛的问题
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）
。。。。

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

是的
我这个方法行不通

谢谢 版主全力支持
这个方法我回去试一下 现在没有时间看了
网吧卡上余额不多了

网络到期了 快放假了 所以没有再续费 等大2下学期再续费
遇到一个问题 不知道怎么判断数组里面是否存放同样的数组
比如 Dim a (35) As Integer
Dim i As Integer
For i=0 to 35
a(i)=Int(Rnd*19)
If a(i)=...???
.
.
.
.
End If
我不懂哟 我只会判断和是不是和上一个赋相等，不知道怎么判断是不是和上上上一个赋相等或之前所赋是否有相等。

谢谢大家的提议
老是跑到网吧来，很不方便。
回去再试试

今天把 源文件考过来了 由于时间关系 没有完全把注释写完 不知道能不能看明白
请高手修改一下 就是 图片能随机生成

这行代码可以用循环做。。。这样太麻烦了

dim i as integer
for i=0 to 35
a(i)="you\" & (i+1) & ".jpg"
next i

这个提醒了我 晕死 把学过的知识都忘记了 谢谢版主的提醒
网吧没有VB 我也不好说 过几天 回家再来