用vb做一个益智小游戏

Dim intI As Integer

Dim intJ As Integer

Dim intH As Integer

Dim intS(0 To 11) As Integer

Private Sub Command1_Click()

'寻找：

Dim intG As Integer

If intH + 6 > 11 Then

intG = intH - 6

Else

intG = intH + 6

End If

For intI = 0 To 11

If intI = intS(intG) Then

Image1(intI).Picture = LoadPicture(App.Path & \ & intG & .jpg)

End If

Next

End Sub

'在该工程同一级目录下命名0到11个图片（6张不同的图片各两份以0-5，6-11按顺序命名），且添加一个背景图片

Private Sub Form_Load()

Dim bln As Boolean

Randomize

intI = 0

Do While intI < 12

bln = False

Image1(intI).Picture = LoadPicture(App.Path & \背景.gif)

intJ = Int(11 + 1) * Rnd

For intH = 0 To intI

If intJ = intS(intH) Then

bln = True

intI = intI - 1

Exit For

End If

Next

If bln = False Then

intS(intI) = intJ

End If

intI = intI + 1

Loop

End Sub

Private Sub Image1_Click(Index As Integer)

intH = intS(Index)

Image1(Index).Picture = LoadPicture(App.Path & \ & intS(Index) & .jpg)

End Sub