求助各位大侠:为什么command2中的if语句执行不了?我是个新手,高手教教我,谢谢各位!!!
Dim n, a, b, c, d, e, l(1 To 3, 1 To 3) As Integer

Private Sub Command2_Click()
If Picture2(1).Picture = Picture2(2).Picture Then
Print "1"
End If
End Sub

Private Sub Form_load()
Randomize
n = Int(Rnd * 2) + 0
End Sub


Private Sub Command1_Click(Index As Integer)
a = Index
Command1(a).Visible = False
d = a
For b = 1 To 3
For c = 1 To 3
l(b, c) = n
If l(b, c) = 1 Then
Picture2(d).Picture = LoadPicture("yuan.gif"): e = 0
End If
If l(b, c) = 0 Then
Picture2(d).Picture = LoadPicture("cha.gif"): e = 1
End If
n = e
b = Int(Rnd * 3 + 1)
Next c
Exit For
Next b
End Sub

判断两张图片是否一样，不能这样判断的，笨方法需要逐个像素去比较，那样可以达到目的，但是太慢
给个函数，试试
Function ComparePicture() As Boolean
Dim x1, y1 As Long
If Picture1.Width <> Picture2.Width Or Picture1.Height <> Picture2.Height Then '先看是不是一样大的。
ComparePicture = False
Exit Function
End If
For x1 = 0 To Picture1.Width Step 100 'step 达到了,100这是为了加速
For y1 = 0 To Picture1.Height Step 100
If Picture1.Point(x1, y1) <> Picture2.Point(x1, y1) Then
MsgBox ("两个图形不同")
ComparePicture = False '不同返回false
Exit Function
End If
Next y1
Next x1
MsgBox ("两个图形相同")
ComparePicture = True
End Function