vb編程隨機排列圖片

Dim pic(8) As Picture

Dim ImageID(8) As Integer

Private Sub Command1_Click()

Dim i As Integer

Dim Temp(8) As Integer

Dim ChosenNumber As Integer

For i = 0 To 8

Temp(i) = i

Next

Randomize (Timer)

For i = 8 To 0 Step -1

ChosenNumber = Int(i * Rnd)

ImageID(8 - i) = Temp(ChosenNumber)

Temp(ChosenNumber) = Temp(i)

Next

For i = 0 To 8

Picture1(i).Picture = pic(ImageID(i))

If ImageID(i) = 8 Then XPosition = i

Next

Started = True

MoveTimes = 0

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 8

Set pic(i) = Picture1(i).Picture

Next

End Sub