Question

VB产生随机数，显示对应的图片框，鼠标指向图片框时，产生随机数，隐藏本框显示对应图片框，如何编写

VB产生1到30的随机数，分别对应每个图片框，当产生一个随机数时则显示对应的图片框隐藏其它图片框，当鼠标移至显示的图片框时则产生下一个随机数，显示对应的图片框隐藏其它图片框，一直这样下去，产生随机数我会,其他的怎么编写，不会要把代码在每个图片框都编写一遍吧…
将满意答案中“For i=2 To 30”改为“For i=1 To 30”即正确，否则出两个方框

Answer 1

Dim u As Integer, a As Integer

Private Sub Form_Load()

For u = 0 To 29

Image1(u).BorderStyle = 1

 Image1(u).Height = 20

  Image1(u).Width = 20

    Image1(u).Top = (u \ 6) * 20 + 5

    Image1(u).Left = (u Mod 6) * 20 + 5

Next u

Randomize

a = Int(Rnd * 30)

Image1(a).Visible = True

End Sub

Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Image1(Index).Visible = True Then

Image1(Index).Visible = False

  Randomize

a = Int(Rnd * 29)

 

 

Image1(a).Visible = True

End If

End Sub

 

 

程序完全可以用 下面是一个截图  你可以试试 

Answer 2

采用图片控件数组就可以了啊，控件数组中有一个Index值对应每一个图片控件哦。
你先在窗体上画一个图片框，然后点击它“复制”并在窗体空白处点一下后再“粘贴”，就这样粘贴30次、即创建了30个图片控件数组了，你调整一下各自的位置。然后复制以下代码运行即可。
Private Sub Form_Load()
Dim i As Long
For i = 2 To 30
Picture1(i).Visible = False
Next i
End Sub
Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1(Index).Visible = False
Randomize
Picture1(Int(Rnd() * 30 + 1)).Visible = True
End Sub
最后的效果就是：在界面上有一个框、你拿鼠标去碰它、它就跑到另一个地方了，永远都追不上它的感觉。

Answer 3

行