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

For i = 1 To 18
Randomize()
j = Int(((19 - i) * Rnd()) + 1)
a(i) = b(j)

l = 1
For k = 1 To 19 - i
If k <> j Then
c(l) = b(k)
l += 1
End If
Next k

If i <> 18 Then
ReDim b(18 - i)
For k = 1 To 18 - i
b(k) = c(k)
Next
End If
Next i

是不是那种测记忆力的游戏?

看起来好像就是 连连看 游戏

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

a(0) = "you\1.jpg"
a(1) = "you\2.jpg"
a(2) = "you\3.jpg"
a(3) = "you\4.jpg"
a(4) = "you\5.jpg"
a(5) = "you\6.jpg"
a(6) = "you\7.jpg"
a(7) = "you\8.jpg"
a(8) = "you\9.jpg"
a(9) = "you\10.jpg"
a(10) = "you\11.jpg"
a(11) = "you\12.jpg"
a(12) = "you\13.jpg"
a(13) = "you\14.jpg"
a(14) = "you\15.jpg"
a(15) = "you\16.jpg"
a(16) = "you\17.jpg"
a(17) = "you\18.jpg"
a(18) = "you\19.jpg"
a(19) = "you\20.jpg"
a(20) = "you\21.jpg"
a(21) = "you\22.jpg"
a(22) = "you\23.jpg"
a(23) = "you\24.jpg"
a(24) = "you\25.jpg"
a(25) = "you\26.jpg"
a(26) = "you\27.jpg"
a(27) = "you\28.jpg"
a(28) = "you\29.jpg"
a(29) = "you\30.jpg"
a(30) = "you\31.jpg"
a(31) = "you\32.jpg"
a(32) = "you\33.jpg"
a(33) = "you\34.jpg"
a(34) = "you\35.jpg"
a(35) = "you\36.jpg"


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

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

其它的我没看。。。。打开就看见这个了

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

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

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