Sub ProRandNum()
Randomize
RandNum = Int((3 - 1 + 1) * Rnd + 1)
Picture1.Picture = ImageList1.ListImages(RandNum).Picture
End Sub

这段代码等于下面这一句
Picture1.Picture = ImageList1.ListImages(1).Picture

这里是程序的开头,但是俺不知道是啥意思?该在对象窗口改动还是要在属性窗口改点什么吗?
Dim RandNum As Integer
Sub ProRandNum()
Randomize
RandNum = Int((3 - 1 + 1) * Rnd + 1)
Picture1.Picture = ImageList1.ListImages(RandNum).Picture
End Sub
Picture1.Picture = ImageList1.ListImages(RandNum).Picture
就是这句严重不明白啊~~~~~~~~~~~

vb把
好象是随机打开图片？

要在对象窗口或者属性窗口那里设置点什么吗?(俺很心急想知道~~~~~~~~~)
只有这句执行不了,注析这句后,就可以运行,可是那些图片没有消失,一直在那里
游戏是一个跟电脑玩剪刀,石头,布的,要求自己出一个,然后电脑出一个,记录起得分.

首先看到了Picture1
如果是自己定义的一个控件或容器的话,请先将它实例化.
方法 new

可以帮偶看看吗?图片那里偶已经设置成空件数组的形式,这样有错吗?可是程序运行不了,老说没有找到方法或数据成员??????????
Dim RandNum As Integer
Sub ProRandNum()
Randomize
RandNum = Int((3 - 1 + 1) * Rnd + 1)
Picture1.Picture = ImageList1.ListImages(RandNum).Picture
End Sub
Private Sub Command1_Click()
Picture1.Visible = True
ProRandNum
Select Case RandNum
Case 1
Label1.Caption = Command1.Caption
Case 2
Label1.Caption = Command1.Caption
Label2.Caption = Val(Label2.Caption) + 1
Label3.Caption = Val(Label3.Caption) + 0
Case 3
Label1.Caption = Command1.Caption
Label2.Caption = Val(Label2.Caption) + 0
Label3.Caption = Val(Label3.Caption) + 1
End Select
End Sub
Private Sub Command2_Click()
Picture1.Visible = True
ProRandNum
Label1.Caption = Command2.Caption
Select Case RandNum
Case 1
Label1.Caption = Command2.Caption
Label2.Caption = Val(Label2.Caption) + 0
Label3.Caption = Val(Label3.Caption) + 1
Case 2
Label1.Caption = Command2.Caption
Case 3
Label1.Caption = Command2.Caption
Label2.Caption = Val(Label2.Caption) + 1
Label3.Caption = Val(Label3.Caption) + 0
End Select
End Sub
Private Sub Command3_Click()
Picture1.Visible = True
ProRandNum
Label1.Caption = Command3.Caption
Select Case RandNum
Case 1
Label1.Caption = Command3.Caption
Label2.Caption = Val(Label2.Caption) + 1
Label3.Caption = Val(Label3.Caption) + 0
Case 2
Label1.Caption = Command3.Caption
Label2.Caption = Val(Label2.Caption) + 1
Label3.Caption = Val(Label3.Caption) + 0
Case 3
Label1.Caption = Command3.Caption
End Select
End Sub
Private Sub Command4_Click()
Label2 = "0"
Label3 = "0"
Picture1.Visible = False
Label1 = ""
End Sub