用vb编写一个点击按钮随机出现一张图片的软件，例如：窗体上一个picture1和command1的控件。
1、有四张图片，他们的后缀名不相同，用户可以问这样写：
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
2、如果后缀名相同，且图片名称按顺序编号内并在程序目录下，用户可以容这样写：
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(App.Path & "\" & Int(Rnd * 3) & ".jpg")
End Sub
扩展资料：
CommandButton命令按钮最常用的事件是鼠标点击（Click）事件，当点击按钮时，犹如发出了一道命令，而这也正是“命令按钮”这个说法的由来。
CommandButton 的主要属性列举：
1、Cancel（取消）属性：
当一个按钮的 Cancel 属性设置为 True 时，按 ESC 键与单击此命令按钮的作用相同，因此，这个命令按钮被称为取消按钮。在一个窗体中，只允许一个命令按钮的 Cancel 属性为 True 。
2、Default（默认）属性：
当一个按钮的 Default 属性设置为 True 时，按回车键与单击此命令按钮的作用相同，因此，这个命令按钮被称为默认按钮。 与 Cancel 的设置一样，在一个窗体中，只允许一个命令按钮的 Default 属性设置为 True 。
3、Caption（标题）属性：
跟其他控件的 Caption 属性一样，都用来显示控件标题的属性。这里要强调的是，作为按钮控件，用户可以给按钮控件的 Caption 指定快捷方式。
参考资料来源：百度百科-命令按钮
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("C:\123.jpg")
End Sub
你在窗体上添加一个Picture控件,一个Command按钮,然后把上面的代码复制进去,运行看结果吧!!!
注意:你首先要把123.jpg这个图片放到C盘下!!!
首先在窗体上添加command1按纽和图片框，在图片框的属性中，picture中添加你要加的图片，
其visible为false
。在命令按纽的click事件中介入如下代码
Picture1.visible=true
这样就好了
应该异曲同工吧#
