VB制作拼图游戏

VB制作拼图游戏：简单算法1、首先按照截图把控件添加好！（技巧：处理的图片，划分切块，形成九个小图片，这里采用的是格式，然后采用按钮来显示这些图片，同学们也可以采用，是一样的，重点是鼠标单击事件！注意：添加九个按钮，一定要设置每个按钮的、值来完成对图片的吻合拼接，这样可以使界面看起来美观大方！）、界面的设计这里很多同学习惯更改的值来显示某些文本，但要注意，你这里很可能为了美观会使用自己机子上单独安装的某些字体，这些字体拿到其他机子上是不生效的，那么怎么办呢？这里有个比较“笨拙的方法”你可以利用工具打好想要显示的文本，设置个性字体，然后截图，插入到上面，这样的话，无论是什么字体，都可以显示了，因为图片的属性是无法更改的！这个方法同样可以用来美化！当然了，自己究竟怎么样设计，就靠想象力了，最终得到的效果是要有一个美观、简洁大方的界面！、算法设计（全部代码）Dim Num As IntegerPrivate Sub Command1_Click()If Command2.Picture = Command11.Picture ThenCommand2.Picture = Command1.PictureCommand1.Picture = Command11.PictureEnd IfIf Command4.Picture = Command11.Picture ThenCommand4.Picture = Command1.PictureCommand1.Picture = Command11.PictureEnd IfEnd SubPrivate Sub Command11_Click()MsgBox (开发者：孔世明 & vbCrLf & 学院：信息科学与技术学院 & vbCrLf & 专业：软件工程 & vbCrLf & 班级：软件一班 & vbCrLf & 学号：201213040117)End SubPrivate Sub Command12_Click()Num = Num + 1If Num = 1 ThenCommand9.Picture = Command11.PictureEnd IfIf Num = 2 ThenMsgBox (亲不能重复开始哦！)End IfIf Num = 3 ThenMsgBox (亲再说一次，不能重复开始！)End IfIf Num 3 ThenMsgBox (请不要放弃治疗！)End IfEnd SubPrivate Sub Command2_Click()If Command1.Picture = Command11.Picture ThenCommand1.Picture = Command2.PictureCommand2.Picture = Command11.PictureEnd IfIf Command3.Picture = Command11.Picture ThenCommand3.Picture = Command2.PictureCommand2.Picture = Command11.PictureEnd IfIf Command5.Picture = Command11.Picture ThenCommand5.Picture = Command2.PictureCommand2.Picture = Command11.PictureEnd IfEnd SubPrivate Sub Command3_Click()If Command2.Picture = Command11.Picture ThenCommand2.Picture = Command3.PictureCommand3.Picture = Command11.PictureEnd IfIf Command6.Picture = Command11.Picture ThenCommand6.Picture = Command3.PictureCommand3.Picture = Command11.PictureEnd IfEnd SubPrivate Sub Command4_Click()If Command1.Picture = Command11.Picture ThenCommand1.Picture = Command4.PictureCommand4.Picture = Command11.PictureEnd IfIf Command5.Picture = Command11.Picture ThenCommand5.Picture = Command4.PictureCommand4.Picture = Command11.PictureEnd IfIf Command7.Picture = Command11.Picture ThenCommand7.Picture = Command4.PictureCommand4.Picture = Command11.PictureEnd IfEnd SubPrivate Sub Command5_Click()If Command2.Picture = Command11.Picture ThenCommand2.Picture = Command5.PictureCommand5.Picture = Command11.PictureEnd IfIf Command4.Picture = Command11.Picture ThenCommand4.Picture = Command5.PictureCommand5.Picture = Command11.PictureEnd IfIf Command6.Picture = Command11.Picture ThenCommand6.Picture = Command5.PictureCommand5.Picture = Command11.PictureEnd IfIf Command8.Picture = Command11.Picture ThenCommand8.Picture = Command5.PictureCommand5.Picture = Command11.PictureEnd IfEnd SubPrivate Sub Command6_Click()If Command3.Picture = Command11.Picture ThenCommand3.Picture = Command6.PictureCommand6.Picture = Command11.PictureEnd IfIf Command5.Picture = Command11.Picture ThenCommand5.Picture = Command6.PictureCommand6.Picture = Command11.PictureEnd IfIf Command9.Picture = Command11.Picture ThenCommand9.Picture = Command6.PictureCommand6.Picture = Command11.PictureEnd IfEnd SubPrivate Sub Command7_Click()If Command4.Picture = Command11.Picture ThenCommand4.Picture = Command7.PictureCommand7.Picture = Command11.PictureEnd IfIf Command8.Picture = Command11.Picture ThenCommand8.Picture = Command7.PictureCommand7.Picture = Command11.PictureEnd IfEnd SubPrivate Sub Command8_Click()If Command5.Picture = Command11.Picture ThenCommand5.Picture = Command8.PictureCommand8.Picture = Command11.PictureEnd IfIf Command7.Picture = Command11.Picture ThenCommand7.Picture = Command8.PictureCommand8.Picture = Command11.PictureEnd IfIf Command9.Picture = Command11.Picture ThenCommand9.Picture = Command8.PictureCommand8.Picture = Command11.PictureEnd IfEnd SubPrivate Sub Command9_Click()If Command6.Picture = Command11.Picture ThenCommand6.Picture = Command9.PictureCommand9.Picture = Command11.PictureEnd IfIf Command8.Picture = Command11.Picture The