vb期末程序设计，要求，综合性的，有创新意识不强整改措施。设计一个拼图游戏

来源：蜘蛛抓取(WebSpider) 时间：2016-06-13 01:10 标签： 创新意识
您可能对以下计算机毕业设计还有兴趣:
看过此计算机毕业设计的网友同时还看了:
没有相关计算机毕业设计
网友评论（评论内容只代表网友观点，与本站立场无关！）
1&2&3&4&5&6&7&8&9&10&11&12&13&
1&2&3&4&5&6&7&8&9&10&11&12&13&
1&2&3&4&5&6&7&8&9&10&11&12&13&
爱毕业设计网vb拼图游戏，求大神详解解决方案 - VB当前位置:& &&&vb拼图游戏，求大神详解解决方案vb拼图游戏，求大神详解解决方案&&网友分享于：&&浏览：3次vb拼图游戏，求大神详解本帖最后由 bcrun 于
10:39:38 编辑
代码如下：
Option&Explicit
Dim&kk&As&Integer
Dim&a(0&To&8)&As&Integer
Private&Sub&Command1_Click()
Dim&I&As&Integer
Dim&k&As&Integer
Dim&j&As&Integer
a(0)&=&Int(Rnd&*&8)
For&I&=&1&To&7
&&&&&&&&k&=&Int(Rnd&*&8)
&&&&&&&&For&j&=&0&To&I&-&1
&&&&&&&&&&&&If&k&=&a(j)&Then
&&&&&&&&&&&&&&&&Exit&For
&&&&&&&&&&&&End&If
&&&&&&&&Next&j
&&&&While&j&&&I
For&I&=&0&To&7
&&&&P(I).Picture&=&Pc.GraphicCell(a(I))
Private&Sub&P_Click(Index&As&Integer)
Dim&T&As&Integer
Dim&b&As&Boolean
If&(Abs(Index&-&kk)&=&1&And&_(Index&\&3&=&kk&\&3))&Or&_(Abs(kk&-&Index)&=&3)&Then
&&&&P(kk).Picture&=&P(Index).Picture
&&&&P(Index).Picture&=&LoadPicture
&&&&T&=&a(kk):&a(kk)&=&a(Index):&a(Index)&=&T
&&&&kk&=&Index
For&T&=&0&To&7
&&&&If&a(T)&&&&T&Then
&&&&&&&MsgBox&"ok"
&&&&&&&b&=&False
&&&&&&&Exit&For
&&&&End&If
If&b&=&True&Then&MsgBox&"拼好了"
我想做一个vb的拼图游戏，但看不懂上面的代码，求大神大致解释一下这些代码，最好是每一行代码干什么的帮忙填充上注释，小弟跪求。在此先谢过。
------解决方案--------------------这是哪位兄台写的代码，连1/10的注释都没有啊。
你这个还需要界面控件配合的，Command1好理解,P1那个貌似是PictureBox数组。唉，你应该有源码吧
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有

我要回帖

更多关于 创新意识 的文章

 

随机推荐