Question

急急急！用vb做拼图游戏

Option Explicit
Dim j As Integer
Dim step As Integer
Dim n As Integer

Private Sub Command1_Click()
PictureClip1.Picture = Picture1.Picture

Dim i As Single

For i = 0 To (n - 1)

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

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

Next

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

End Sub

Private Sub Command2_Click()
CommonDialog1.DialogTitle = "打开"
CommonDialog1.Filter = "所有文件(*.*) "
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Text1_Change()
Dim k As Integer
k = Text1.Text
If 0 < k < 11 Then
PictureClip1.Rows = k
PictureClip1.Cols = k
End If
End Sub

Private Sub Form_Load()
Dim i As Integer
n = PictureClip1.Rows * PictureClip1.Cols - 1
Image1(0).Move 0, 0
For i = 1 To n
Load Image1(i)

Image1(i).Visible = True
Next
End Sub

Private Sub Image1_Click(Index As Integer) '注意索引值的运用
Select Case Index Mod k '把Image控件分成k列
Case 0 '当鼠标点击第1列时
If Image1(Index + 1).Picture = LoadPicture("") Then '判断右边是否为空
Image1(Index + 1).Picture = Image1(Index).Picture '交换图片
Image1(Index).Picture = LoadPicture("")
End If

If 1 < n < k Then
Case n '当鼠标点击中间列时
If Image1(Index - 1).Picture = LoadPicture("") Then '判断左边是否为空
Image1(Index - 1).Picture = Image1(Index).Picture
Image1(Index).Picture = LoadPicture("")
End If

If Image1(Index + 1).Picture = LoadPicture("") Then '判断右边是否为空
Image1(Index + 1).Picture = Image1(Index).Picture
Image1(Index).Picture = LoadPicture("")
End If
End If

Case k '当鼠标点击第k列时,也就是最后一列

If Image1(Index - 1).Picture = LoadPicture("") Then '判断左边是否为空

Image1(Index - 1).Picture = Image1(Index).Picture

Image1(Index).Picture = LoadPicture("")

End If

End Select

Select Case Index \ k '把9个Image控件分成三行

Case 0 '当鼠标点击第1行时

If Image1(Index + k).Picture = LoadPicture("") Then '判断下边是否为空

Image1(Index + k).Picture = Image1(Index).Picture

Image1(Index).Picture = LoadPicture("")

End If
If 0 < n < k Then
Case n '当鼠标点击中间行时

If Image1(Index - k).Picture = LoadPicture("") Then '判断上边是否为空

Image1(Index - k).Picture = Image1(Index).Picture

Image1(Index).Picture = LoadPicture("")

End If

If Image1(Index + k).Picture = LoadPicture("") Then '判断下边是否为空

Image1(Index + k).Picture = Image1(Index).Picture

Image1(Index).Picture = LoadPicture("")

End If
End If

Case k '当鼠标点击第k行时

If Image1(Index - k).Picture = LoadPicture("") Then '判断上边是否为空

Image1(Index - k).Picture = Image1(Index).Picture

Image1(Index).Picture = LoadPicture("")

End If

End Select

End Sub
界面：两个commandbutton,一个pictureclip,一个picture,一个commondialog,一个image,一个text！要实现的是：一开始运行的时候picture里有一张默认的图片（按commandbutton2可以选择电脑里的图片），按commangbutton1可以使图片分割成n*n份的图片，分别放在image控件里（n是从text里输入的，0<n<11，不输入默认是3*3份）各位帮帮忙，谢谢~~
你们复制下运行试试闹，这个问题是他没分好，就分出一块，我也晕了啊，呜呜，，，明天要交了来着

Answer 1

哇，人才，写这么长，人家都不知道你哪里出什么问题？

不好意思，我也搞不好。。虽然你很急。等我学会更多的时候再帮你喽。。

Answer 2

太长了 眼都看花了