Question

VB怎么实现预先存好20张图，然后点击command随机跳出其中一张图

VB怎么实现预先存好20张图，然后点击command随机跳出其中一张图，还可以配上文字，急求

Answer 1

假设这20张图片的文件名分别为PIC1.JPG~PIC20.JPG，且保存在VB程序的同一文件夹中。

在窗体中做一个命令按钮，以及一个Image对象，复制以下代码就可以了：
Private Sub Command1_Click()
i = Int(Rnd * 20) + 1
Image1.Stretch = True
Image1.Picture = LoadPicture(App.Path & "Pic" & i & ".jpg")
End Sub

追问

已经把图片命名为pic，也放在同一文件夹下，但是找不到图，程序错误

追答

程序存盘了没有？
图片文件名为
PIC+数字+.JPG

追问

是你的代码少了一个“\”，应该是"\pic"。那要怎么样实现随机的图配上相应的文字，我有20张图，有20种情况。

追答

上面的代码已经是随机的图了。最好再前面再加上一句Randomize就可以了。
如果要加上相应的说明文字，可以事先把说明文字放到一个数组中。
Private Sub Command1_Click()
Dim a(20) As String
a(1) = "ABC111"
a(2) = "ABC222"
a(3) = "ABC333"
'........
Randomize
i = Int(Rnd * 20) + 1
Image1.Stretch = True
Image1.Picture = LoadPicture(App.Path & "\Pic" & i & ".jpg")
Text1.Text = a(i)
End Sub