vb程序中有什么未定义 清高手帮帮我 快速 今天解决

来源：百度知道 编辑：UC知道 时间：2024/05/18 11:45:15
Sub init() '初始化游戏子程序

For i = 0 To 7 '随机产生不重复的8个编号(从0到7)

a0: x(i) = Int(Rnd * 8)

For j = 0 To i - 1

If x(i) = x(j) Then GoTo a0

Next

Next

For i = 0 To 7

Image1(i).Enabled = True '使Image1响应鼠标事件

Image1(x(i)).Picture = PictureClip1.GraphicCell(i) '让图片的8个单元分别赋予 8个Image控件

Next

Image1(8).Picture = LoadPicture("") '空位用于移动图片

End Sub
“Sub init() '初始化游戏子程序”这句为什么他画出来 说我未定义 该怎么解决
具体怎么定义 有image1（）这样的有8个 我一点也做不来 大家帮我定义一下 谢谢

x()，Image1()定义了么？

ps：定义一个Image1后，选中，复制，粘贴……8次，拖到要的地方

Dim x(7)

x()字符患数组没定义。如上定义一下就好。

这段代码应该没有问题 检查一下上下文 注意一下字符的全角和半角

因为程序不完整，不好判断原因，你改成下面的语句试一试：
Sub init() '初始化游戏子程序
For I = 0 To 7 '随机产生不重复的8个编号(从0到7)
a0: x(I) = Int(Rnd * 8)
If I > 0 Then
For j = 0 To I - 1
If x(I) = x(j) Then GoTo a0
Next
End If
Next
For I = 0 To 7
Image1(I).Enabled = True '使Image1响应鼠标事件
Image1(x(I)).Picture = PictureClip1.GraphicCell(I) '让图片的8个单元分别赋予 8个Image控件
Next
Image1(8).Picture = LoadPicture("") '空位用于移动图片
End Sub

但愿能解决，若不行可再联系。

在form中插入一个image对象,vb会自动命名为image1，选image1，在编辑菜单中选复制，然后粘贴，提示是否建立控件数组，选是，就建立了image1(),不过现在只有两个，继续粘贴6次，粘贴的image1都在form的左上方，依次拖动到指定的位置,ok!

应该说代码没有问题，但要运行，需要准备环境 

1、在vb工程中添加部件：工程-部件-Microsoft PictureCLip Co