谁有vb拼图游戏和论文啊

1.首先要准备一张大小适中的图片。

2.单击“工程”→“部件”，然后找到“Microsoft PictureClip Controls6.0”，选中后PictureClip控件就会出现在工具箱
中。

3.将PictureClip控件拖到窗体上，在属性窗口中设置其属性：点击Picture属性，加入刚才准备的图片。
将Cols、Rows属性均设为3，这样就将图片划分为3行3列9个单元了。这些单元用GraphicCell属性进行编号，编号从0开始，编号的
顺序是从左到右，从上到下。我们这样来访问这些单元，比如：在From_load过程中加入下面的语句：

Form1.Picture=PictureClip1.GraphicCell(0)

一运行就会发现，窗体上显示的是PictureClip1中图片左上角的一块了。

4.在窗体上摆上9个Image控件，为了减化程序代码，我们使用一个Image控件数组。那么如何建立控件数组呢？
先在窗体上放置一个控件Image1，然后点击“复制”按钮，再点击“粘贴”按钮，将询问是否要建立一个控件数组，
单击“是”即可。连续单击“粘贴”按钮，增加数组成员，这样窗体上就有了Image1(0)、Image1(1)、……Image1(8)
等9个Image控件了。这些控件是用来显示图片的9个单元，即每一个图块用一控件显示。

这样就差不多了，再加上一个命令按钮Command1和两个标签控件Label1、label2，将它们的Caption属性分别
设为“开始”、“步数”和“0”。界面的设计就算大功告成了。

程序代码如下：

Option Explicit

Dim i As Integer'定义循环变量

Dim j As Integer

Dim step As Integer

Dim x(8) As Integer'定义一个数组，用来存放随机编号
<