Picture1.Picture = LoadPicture(""),共有3个图片文件，文件名分别为"1.jpg","2.jpg","3.jpg"，用一个按钮启动，只要按这个按钮就在PicuterBox中随机出现这3幅图片中的随机一幅。

I don't know!~ 等我慢慢研究一下再说！

Private Sub Option1_Click()
Picture1(0).Picture = LoadPicture("1.JPG")
Dim a As Integer
Randomize
a = Int((3 * rnt) + 1)
Picture1(1).Picture = LoadPicture(App.Path & "\" & a & ".jpg")
End Sub
怎么总是第一幅啊？

Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。

Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。

行了，多谢你的提醒，原来是代码打错了。

今晚我这网速也一般，谢谢LS帮我写啊。

10楼的写的很好哦，经典