Question

如何用vb编写一个点击按钮随机出现一张图片的软件

Answer 1

例如：窗体上一个picture1和command1的控件。

一：有四张图片，他们的后缀名不相同，你可以这样写：

Dim a$(3)
Private Sub Form_Load()
Randomize
    a(0) = "D:\xuexi.gif"
    a(1) = "D:\002.jpg"
    a(2) = "D:\房子.png"
    a(3) = "D:\4.jpg"
End Sub
Private Sub Command1_Click()
    Picture1.Picture = LoadPicture(a(Int(Rnd * 3)))
End Sub

二：如果后缀名相同，且图片名称按顺序编号并在程序目录下，你可以这样写：

Private Sub Command1_Click()
    Picture1.Picture = LoadPicture(App.Path & "\" & Int(Rnd * 3) & ".jpg")
End Sub