Question

VB编程:怎么将9张图片随机显示在9个PICTUREBOX中

这样只能显示一张图而已，要9张同时能显示，

Answer 1

'首先将9张图片的名称改为1～9为名字的文件（如：1.jpg~9.jpg）。
'控件数组Picture1(0) 到Picture1(8)
Sub a()
Dim b As New Collection
Dim i As Integer
Dim n As Integer
For i = 1 To 9
b.Add i
Next i
For i = 8 To 0 Step -1
n = Rnd * i + 1
Picture1(i).Picture = LoadPicture(b(n) & ".jpg")
b.Remove n
Next i
End Sub

追问

要9张图同时显示，

追答

要添加控件数组Picture1(0) 到Picture1(8)，共9个PICTUREBOX中。

Answer 2

可以用这种方法：
首先将9张图片的名称改为1～9为名字的文件（如：1.jpg~9.jpg）。
在程序中用随机函数生成一个在〔1，9〕之间的一位整数，公式为 N=Int(9*Rnd)+1
然后加上相关语句，关键语句为：Picture1.Picture=LoadPicture("D:\PIC\" & N & ".jpg")
假设图片保存在D：盘的PIC文件夹中。

楼主，试试