Function 随机数(最大值，最小值)
Randomize
随机数 = CLng((最大值 - 最小值) * Rnd + 最小值)
End Function
Event Form1.PictureBox1.Click
p1 = 随机数(37, 40)
Form1.PictureBox1.Picture = "C:\Documents and Settings\Administrator\桌面\"& p1 &".bmp"
MessageBox "变成了" & P1
End Event
哪里错了
Randomize
随机数 = CLng((最大值 - 最小值) * Rnd + 最小值)
End Function
Event Form1.PictureBox1.Click
p1 = 随机数(37, 40)
Form1.PictureBox1.Picture = "C:\Documents and Settings\Administrator\桌面\"& p1 &".bmp"
MessageBox "变成了" & P1
End Event
哪里错了
