Question

VB控件数组问题

有两个picture控件数组，我想第二个数组picture2的任一控件的图片是picture1的任一控件的图片，但第二个数组的图片不能重复。

如果像下面一样的话，picture2中的空件中有可能出现了相同的图片，要怎么实现每张图片都不相同呢？

Private Sub Form_Load()
Randomize
For i = 0 To 6
Picture1(i) = LoadPicture(App.Path + "\pic\" & i & ".jpg")
Next
For j = 0 To 6
Picture2(j) = LoadPicture(App.Path + "\pic\" & Int(Rnd * 7) & ".jpg")
Next
End Sub

Answer 1

随即7个0-6的不重复数 不就好了。百度一下 随即不重复数 很多的

Answer 2

这个是产生随机数的，很高效的代码
Option Explicit

Option Base 1

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Const Nums = 10000

Private Sub Command1_Click()

Dim t As Long

Dim Num(Nums) As Long

Dim i, n As Long

Dim s As String

t = timeGetTime

Randomize

For i = 1 To Nums

n = Int(Rnd * Nums) + 1

If Num(n) = 0 Then

Num(n) = n

s = s & n & ","

Else

i = i - 1

End If

Next i

Text1.Text = s

t = timeGetTime - t

MsgBox t

End Sub