请教：如何动态显示随机数的问题！！

Question

问题如下，请各位达个帮帮忙，先谢过了1 产生一个随机整数，大小从0-24，个数为1024个。
2 在图片框中依次显示这些随机数，图片框的横坐标是个数0-〉1024，纵坐标是随机数的大小0-〉24
  当随机整数变化时，可以刷新图片框，动态显示这些随机数。急用，在线等！！希望可以在这里得到朋友们的帮助！拜谢了！！！！

Answer 1

Private Sub Command1_Click()
Randomize
Dim a(1024) As Long
For i = 1 To 1024
a(i) = Rnd * 25
Next i
For i = 1 To 1024
Picture1.PSet (Picture1.Width / 1024 * i, Picture1.Height / 24 * a(i)), vbRed
Next i
End Sub

Answer 2

//MSDN为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限

Answer 3

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Picture1.Refresh
Randomize
Dim a(1024) As Long
For i = 1 To 1024
a(i) = Int(Rnd * 25)
Next i
For i = 1 To 1024
Picture1.PSet (Picture1.Width / 1024 * i, Picture1.Height / 24 * a(i)), vbRed
Next i
End Sub