各位老师请进，看书遇到问题了，picture数组问题

来源：百度知道 编辑：UC知道 时间：2024/09/21 01:30:13
各位老师好~我看书又遇到问题了。

我解决不了，请各位老师教教我。

题目要求：建一个picture1数组，分别是picture1(0),picture1(1),picture1(2),picture1(3),picture1(4)。顺序是0、1、2、3、4

还有一个按钮command1，打乱这个数组的顺序。

如何点击picture(i)，显示我点击的是哪个呢？

例如：打乱顺序后为1、3、0、2、4。 我随便点击一个，就 显示它是哪一个。
v

楼下的简直就是没有看懂提问就回答....

代码如下。
＝＝＝＝＝＝＝＝＝＝
Private Sub Picture1_Click(Index As Integer)
MsgBox Index
End Sub

人家是真的帮你解决了问题的，唉，自己不试一下，还说人家没看懂，我看了你的也是像 <ARTERIOSCLEROS - 总监 九级>一样理解

要不你就这样把：
Private Sub Picture1_Click(Index As Integer)
dim I as integer
select case index
case 0:I=2
case 1:I=0
case 2:I=3
case 3:I=1
case 4:I=4
end select
MsgBox I
End Sub