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

定义一个变量A，
然后用RANDOMIZE 设置个随机种子
然RAND（a*3）

然后那三个图片 放到APP。PATH内
设置数组B（0-2）
然后我就不用说了吧
在COMMAND—CLICK事件内 写下程序 HOHOHOHO OK了

YOU KNOW？

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
怎么总是第一幅啊？

不知道rnt是什么
只知道rnd是随机函数.

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

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

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

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

Rnd 函数返回小于 1 但大于或等于 0 的值。
LZ知道怎么用了吧.

晕...今晚的网速真的不怎么样

标程发布