数字拼图问题(十五数码) VB

跪求一个VB程序是一个数字拼图在4*4的格子里数字冲1到15最好能做个自己输入数字然后教你怎么玩的?谢谢了就是需要1个VB源代码做一个数字拼图啊,在4*4的格子里的数字是... 跪求一个VB程序
是一个数字拼图在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()
这个怎么回事?
展开
 我来答
墨渍
2008-06-18 · TA获得超过2167个赞
知道大有可为答主
回答量:3442
采纳率:20%
帮助的人:949万
展开全部
欢迎加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(I + 12).Top - 3 * A) Then
sum1 = sum1 + 1
End If
Next
For j = 1 To 13 Step 4
If (Picture1(j).Left = Picture1(j + 1).Left - A And Picture1(j).Left = Picture1(j + 2).Left - 2 * A And Picture1(I).Left = Picture1(I + 3).Left - 3 * A) Then
sum1 = sum1 + 1
End If
Next
If sum1 = 8 Then
MsgBox "顺利完成"
End If
End Function

Private Sub Picture1_Click(index As Integer)

Call change(index)

Call beOK

End Sub

Private Function change(ind As Integer) '判断下标为ind的picture是否与空位挨着,如果是就互换位置
If Picture1(ind).Left = Picture1(16).Left And Abs(Picture1(ind).Top - Picture1(16).Top) = A Or Picture1(ind).Top = Picture1(16).Top And Abs(Picture1(ind).Left - Picture1(16).Left) = A Then
l = Picture1(ind).Left
t = Picture1(ind).Top
Picture1(ind).Left = Picture1(16).Left
Picture1(ind).Top = Picture1(16).Top
Picture1(16).Left = l
Picture1(16).Top = t
End If
End Function
东莞大凡
2024-08-11 广告
标定板认准大凡光学科技,专业生产研发厂家,专业从事光学影像测量仪,光学投影测量仪.光学三维测量仪,光学二维测量仪,光学二维测量仪,光学三维测量仪,光学二维测量仪.的研发生产销售。东莞市大凡光学科技有限公司创立于 2018 年,公司总部坐落于... 点击进入详情页
本回答由东莞大凡提供
百度网友96b0c3a
2008-06-17 · TA获得超过1443个赞
知道大有可为答主
回答量:1486
采纳率:0%
帮助的人:862万
展开全部
什么意思?说清楚点
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式