移动拼图游戏vb代码（Mobile jigsaw puzzle VB code）.doc

1、移动拼图游戏 vb代码（Mobile jigsaw puzzle VB code）dim a as integer, b as integer, c as integer, d as integer, s as string, jb as integerprivate sub end _ click ()endend subprivate sub form _ load ()dim i as integer, b as integer have integer.for (i = 0 to 7)(i) loadpicture image1.picture = “c: ). 移动拼图 thinkp

2、ad desktop 1 & + 1 & -. jpg“)(i).fontsize label1 110next irandomizeend subprivate sub image1 _ click (index as integer)if index = 8.if image1 (5).picture = false thenimage2. picture = image1 (8).pictureimage1 (8).picture = image1 (5).pictureimage1 (5).picture = image2. “e = label1.caption (8)label1

3、(8).caption = label1 (5).captionlabel1 (5) = etext3. text = val (text3.text) + 1timer2. enabled = trueelseif image1 (7).picture = false thenimage2. picture = image1 (8).pictureimage1 (8) = (7).picture.picture image1image1 (7).picture = image2. “e = label1.caption (8)label1 (8) = (7).caption.caption

4、label1label1 (7).text3. text = val (text3.text) + 1timer2. enabled = trueend ifend ifend ifif index = 6.(3) if image1.picture = false thenimage2. picture = image1 (6).pictureimage1 (6).picture = image1 (3).picture(3) image1.picture = image2. “e = label1.caption (6)label1 (6).caption = label1 (3).cap

5、tionlabel1 (3) = etext3. text = val (text3.text) + 1timer2. enabled = trueelseif image1 (7).picture = false thenimage2. picture = image1 (6).pictureimage1 (6) and (7).picture.picture = image1image1 (7).picture = image2. “e = label1.caption (6)label1 (6) and (7).caption.caption = label1label1 (7).tex

6、t3. text = val (text3.text) + 1timer2. enabled = trueend ifend ifend ifif index = 0.(3) if image1.picture = false thenimage2. picture = image1.picture (0)image1 (0) = (3).picture image1.picture(3) image1.picture = image2. “e = label1.caption (0)label1 (0) = (3).caption label1.captionlabel1 (3) = ete

7、xt3.Text = exp (text3.text) + 1Timer2 enabled = true.ElseIf image1 (1).Picture = false thenImage2. Picture = image1 (0).PictureImage1 (0).Picture = image1 (1).PictureImage1 (1).Picture = image2. PictureE = label1 (0).CaptionLabel1 (0).Caption = label1 (1).CaptionLabel1 (1) =.Text3. Text = exp (text3

8、.text) + 1Timer2 enabled = true.End ifEnd ifEnd ifIf index = 2 thenIf image1 (5).Picture = false thenImage2. Picture = image1 (2).PictureImage1 (2).Picture = image1 (5).PictureImage1 (5).Picture = image2. PictureE = label1 (2).CaptionLabel1 (2).Caption = label1 (5).CaptionLabel1 (5) =.Text3. Text =

9、exp (text3.text) + 1Timer2 enabled = true.ElseIf image1 (1).Picture = false thenImage2. Picture = image1 (2).PictureImage1 (2).Picture = image1 (1).PictureImage1 (1).Picture = image2. PictureE = label1 (2).CaptionLabel1 (2).Caption = label1 (1).CaptionLabel1 (1) =.Text3. Text = exp (text3.text) + 1T

10、imer2 enabled = true.End ifEnd ifEnd ifIf index = 1 thenIf image1 (0) = false then.PictureImage2. Picture = image1 (1).PictureImage1 (1).Picture = image1 (0).PictureImage1 (0) = image2 picture.Picture.E = label1 (1).CaptionLabel1 (1).Caption = label1 (0).CaptionLabel1 (0) =.Text3. Text = exp (text3.

11、text) + 1Timer2 enabled = true.ElseIf image1 (2).Picture = false thenImage2. Picture = image1 (1).PictureImage1 (1).Picture = image1 (2).PictureImage1 (2).Picture = image2. PictureE = label1 (1).CaptionLabel1 (1).Caption = label1 (2).CaptionLabel1 (2) =.Text3. Text = exp (text3.text) + 1Timer2 enabl

12、ed = true.ElseIf image1 (4).Picture = false thenImage2. Picture = image1 (1).PictureImage1 (1).Picture = image1 (4).PictureImage1 (4).Picture = image2. PictureE = label1 (1).Caption一（1） 。标题（4）标题标签。一（4）= E正文。正文= Val（正文。正文）+ 1定时器启用=真。最后如果最后如果最后如果最后如果如果索引= 3，那么如果较受欢迎（0） 。照片= FALSE 然后照片 2.图片=较受欢迎（3） 。图片

13、（3）较受欢迎。图片=较受欢迎（0） 。图片（0）较受欢迎。图片=图片形象。E = label1标题（3） 。一（3） 。标题（0）标题标签。一（0）= E正文。正文= Val（正文。正文）+ 1定时器启用=真。其他的如果较受欢迎（6） 。照片= FALSE 然后照片 2.图片=较受欢迎（3） 。图片（3）较受欢迎。图片=较受欢迎（6） 。图片（6）较受欢迎。图片=图片形象。E = label1标题（3） 。一（3） 。标题（6）标题标签。一（6）= E正文。正文= Val（正文。正文）+ 1定时器启用=真。其他的如果较受欢迎（4） 。照片= FALSE 然后照片 2.图片=较受欢迎（3） 。

14、图片（3）较受欢迎。图片=较受欢迎（4） 。图片（4）较受欢迎。图片=图片形象。E = label1标题（3） 。一（3） 。标题（4）标题标签。一（4）= E正文。正文= Val（正文。正文）+ 1定时器启用=真。最后如果最后如果最后如果最后如果如果索引= 7，那么如果较受欢迎（8） 。照片= FALSE 然后照片 2.图片=较受欢迎（7） 。图片（7）较受欢迎。图片=较受欢迎（8） 。图片（8）较受欢迎。图片=图片形象。E = label1标题（7） 。一（7） 。标题（8）标题标签。一（8）= E正文。正文= Val（正文。正文）+ 1定时器启用=真。其他的如果较受欢迎（6） 。照片=

15、FALSE 然后照片 2.图片=较受欢迎（7） 。图片（7）较受欢迎。图片=较受欢迎（6） 。图片（6）较受欢迎。图片=图片形象。E = label1标题（7） 。一（7） 。标题（6）标题标签。一（6）= E正文。正文= Val（正文。正文）+ 1定时器启用=真。其他的如果较受欢迎（4） 。picture = false thenimage2. picture = image1 (7).pictureimage1 (7).picture = image1 (4).pictureimage1 (4).picture = image2. pictured = label1 (7).caption

16、label1 (7).caption = label1 (4).captionlabel1 (4) = etext3. text = val (text3.text) + 1timer2. enabled = trueend ifend ifend ifend ifif index = 5).if image1 (8).picture = false thenimage2. picture = image1 (5).pictureimage1 (5).picture = image1 (8).pictureimage1 (8).picture = image2. pictured = labe

17、l1 (5).captionlabel1 (5).caption = label1 (8).captionlabel1 (8) = etext3. text = val (text3.text) + 1timer2. enabled = trueelseif image1 (2).picture = false thenimage2. picture = image1 (5).pictureimage1 (5).picture = image1 (2).pictureimage1 (2).picture = image2. pictured = label1 (5).captionlabel1

18、 (5).caption = label1 (2).captionlabel1 (2) = etext3. text = val (text3.text) + 1timer2. enabled = trueelseif image1 (4).picture = false thenimage2. picture = image1 (5).pictureimage1 (5).picture = image1 (4).pictureimage1 (4).picture = image2. pictured = label1 (5).captionlabel1 (5).caption = label

19、1 (4).captionlabel1 (4) = etext3. text = val (text3.text) + 1timer2. enabled = trueend ifend ifend ifend ifif index = 4).if image1 (1).picture = false thenimage2. picture = image1 (4).pictureimage1 (4).picture = image1 (1).pictureimage1 (1).picture = image2. pictured = label1 (4).captionlabel1 (4).c

20、aption = label1 (1).captionlabel1 (1) = etext3. text = val (text3.text) + 1timer2. enabled = trueelseif image1 (3).picture = false thenimage2. picture = image1 (4).pictureimage1 (4).picture = image1 (3).pictureimage1 (3).picture = image2. pictured = label1 (4).解说词一（4） 。标题（3）标题标签。一（3）= E正文。正文= Val（正文

21、。正文）+ 1定时器启用=真。其他的如果较受欢迎（5） 。照片= FALSE 然后照片 2.图片=较受欢迎（4） 。图片（4）较受欢迎。图片=较受欢迎（5） 。图片（5）较受欢迎。图片=图片形象。E = label1标题（4） 。一（4） 。标题（5）标题标签。一（5）= E正文。正文= Val（正文。正文）+ 1定时器启用=真。其他的如果较受欢迎（3） 。照片= FALSE 然后照片 2.图片=较受欢迎（4） 。图片（4）较受欢迎。图片=较受欢迎（7） 。图片（7）较受欢迎。图片=图片形象。E = label1标题（4） 。一（4） 。标题（7）标题标签。一（7）= E正文。正文= Val（

22、正文。正文）+ 1定时器启用=真。最后如果最后如果最后如果最后如果最后如果端子私有子 sj_click()如果 C0，那么C = 30最后如果1启用=真。端子私有子 stop_click()1启用=假。端子私有子 timer1_timer()如果较受欢迎（8） 。照片= FALSE 然后a格式（RND1, 0）如果 a1，则照片 2.图片=较受欢迎（8） 。图片（8）较受欢迎。图片=较受欢迎（5） 。图片（5）较受欢迎。图片=图片形象。E = label1标题（8） 。一（8） 。标题（5）标题标签。一（5）= E其他的照片 2.图片=较受欢迎（8） 。图片（8）较受欢迎。图片=较受欢迎（7）

23、 。图片（7）较受欢迎。图片=图片形象。E = label1标题（8） 。一（8） 。标题（7）标题标签。一（7）= E最后如果最后如果如果较受欢迎（6） 。照片= FALSE 然后a格式（RND1, 0）如果 a1，则照片 2.图片=较受欢迎（6） 。图片（6）较受欢迎。图片=较受欢迎（3） 。图片（3）较受欢迎。图片=图片形象。E = label1标题（6） 。一（6） 。标题（3）标题标签。一（3）= E其他的我们专注于。照片=较受欢迎（6） 。图片（6）较受欢迎。图片=较受欢迎（7） 。图片（7）较受欢迎。图片=图片形象。E = label1标题（6） 。一（6） 。标题（7）标题标签

24、。一（7）= E最后如果最后如果如果较受欢迎（0） 。照片= FALSE 然后a格式（RND1, 0）如果 a1，则照片 2.图片=较受欢迎（0） 。图片（0）较受欢迎。图片=较受欢迎（3） 。图片（3）较受欢迎。图片=图片形象。E = label1标题（0） 。一（0） 。标题（3）标题标签。一（3）= E其他的照片 2.图片=较受欢迎（0） 。图片（0）较受欢迎。图片=较受欢迎（1） 。图片（1）较受欢迎。图片=图片形象。E = label1标题（0） 。一（0） 。标题（1）标题标签。一（1）= E最后如果最后如果如果较受欢迎（2） 。照片= FALSE 然后a格式（RND1, 0）如果

25、 a1，则照片 2.图片=较受欢迎（2） 。图片（2）较受欢迎。图片=较受欢迎（5） 。图片（5）较受欢迎。图片=图片形象。E = label1标题（2） 。一（2） 。标题（5）标题标签。一（5）= E其他的照片 2.图片=较受欢迎（2） 。图片（2）较受欢迎。图片=较受欢迎（1） 。图片（1）较受欢迎。图片=图片形象。E = label1标题（2） 。一（2） 。标题（1）标题标签。一（1）= E最后如果最后如果如果较受欢迎（1） 。照片= FALSE 然后a格式（RND2, 0）如果 a1，则照片 2.图片=较受欢迎（1） 。图片（1）较受欢迎。图片=较受欢迎（0） 。图片（0）较受欢迎

26、。图片=图片形象。E = label1标题（1） 。一（1） 。标题（0）标题标签。一（0）= E其他的如果 a0，则照片 2.图片=较受欢迎（1） 。图片（1）较受欢迎。图片=较受欢迎（2） 。图片（2）较受欢迎。图片=图片形象。E = label1标题（1） 。一（1） 。标题（2）标题标签。一（2）= E其他的照片 2.图片=较受欢迎（1） 。图片（1）较受欢迎。图片=较受欢迎（4） 。图片（4）较受欢迎。图片=图片形象。E = label1标题（1） 。一（1） 。标题（4）标题标签。一（4）= E最后如果最后如果最后如果如果较受欢迎（3） 。照片= FALSE 然后a格式（RND2,

27、 0）如果 a1，则照片 2.图片=较受欢迎（3） 。图片（3）较受欢迎。图片=较受欢迎（0） 。图片（0）较受欢迎。图片=图片形象。E = label1标题（3） 。一（3） 。标题（0）标题标签。一（0）= E其他的如果 a0，则照片 2.图片=较受欢迎（3） 。图片（3）较受欢迎。图片=较受欢迎（6） 。图片（6）较受欢迎。图片=图片形象。E = label1标题（3） 。一（3） 。标题（6）标题标签。一（6）= E其他的照片 2.图片=较受欢迎（3） 。图片（3）较受欢迎。图片=较受欢迎（4） 。图片（4）较受欢迎。图片=图片形象。E = label1标题（3） 。一（3） 。标题（

28、4）标题标签。一（4）= E最后如果最后如果最后如果如果较受欢迎（7） 。照片= FALSE 然后a格式（RND2, 0）如果 a1，则照片 2.图片=较受欢迎（7） 。图片（7）较受欢迎。图片=较受欢迎（8） 。图片（8）较受欢迎。图片=图片形象。E = label1标题（7） 。一（7） 。标题（8）标题标签。一（8）= E其他的如果 a0，则照片 2.图片=较受欢迎（7） 。图片（7）较受欢迎。图片=较受欢迎（6） 。图片（6）较受欢迎。图片=图片形象。E = label1标题（7） 。一（7） 。标题（6）标题标签。一（6）= E其他的照片 2.图片=较受欢迎（7） 。图片（7）较受欢迎。图片=较受欢迎（4） 。图片（4）较受欢迎。图片=图片形象。E = label1标题（7） 。一（7） 。标题（4）标题标签。一（4）= E最后如果最后如果最后如果如果较受欢迎（5） 。照片= FALSE 然后a格式（RND2, 0）如果 a1，则照片 2.图片=较受欢迎（5） 。图片（5）较受欢迎。图片=较受欢迎（8） 。图片（8）较受欢迎。图片=图片形象。E = label1标题（5） 。一（5） 。标题标签（标题 8） 。一（8）= E