Question

用vb做一个益智小游戏

我是一名学生,最近老师布置我们做一个小学生玩的益智游戏,我想用vb做一个找配对图片的,就是有12个picture,每单击一下,就会显示图片,根据你翻开的,去找与之相同的另一张图片,因为我是vb的初学者,希望能得到好心人的帮忙,可以的话请能留个QQ号,先谢谢大家了.
如果不方便留QQ,就请加我的吧,461970724

Answer 1

对不起，上午顾着吃饭作错了，现在更改！
功能实现了细节自己设置！
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

Answer 2

没时间做，以后有空再做呀

Answer 3

能不能说得再详细一点

Answer 4

你们老师也太狠了

Answer 5

加了你的QQ