UC知道数字拼图问题(十五数码) VB
来源：百度知道 编辑：UC知道 时间：2024/06/17 04:24:21
是一个数字拼图在4*4的格子里 数字冲1到15
最好能做个自己输入数字然后教你怎么玩的?
谢谢了
就是需要1个VB源代码
做一个数字拼图啊,在4*4的格子里的数字是从1到15
最后的排列顺序就是
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15
这样就算成功了的
运行是怎么显示
编译错误:
子程序或函数未定义
就这句话 Private Sub Form_Load()
这个怎么回事?
欢迎加QQ群30686911一起学VB
我已经做成贴图的魔板了，很考校眼力的，图片打散之后再重新拼出来算完成。双击右边图片框可以更换图片。放在群空间里啦，名字是魔板。欢迎大家来下载测试。
至于这个题目
picture控件组都用正方形的，下标1-16。然后如下排好位置。
（1）（2）（3）（4）
（5）（6）（7）（8）
（9）（10）（11）（12）
（13）（14）（15）（16）
还要加一个开始按钮。
Public A As Integer
Private Sub Command1_Click() '开始按钮，作用：打乱顺序；因为每次都是把正常交换，所以不可能出现无法复位的情况
Randomize
For I = 1 To 10000
Call change(Int(Rnd * 15 + 1))
Next
End Sub
Private Sub Form_Load()
for i=1 to 15
Picture1(i).AutoRedraw = True
picture1(i).print i
next
A = Picture1(2).Left - Picture1(1).Left
For I = 1 To 15
Picture1(I).Appearance = 0
Next
Picture1(16).BackColor = vbYellow '就这一个是凹的，当作空位使用。
End Sub
Private Function beOK() '判断是不是正确完成了排序
For I = 1 To 4
If (Picture1(I).Top = Picture1(I + 4).Top - A) And (Picture1(I).Top = Picture1(I + 8).Top - 2 * A) And (Picture1(I).Top = Picture1(