内容发布更新时间 : 2024/11/13 15:05:45星期一 下面是文章的全部内容请认真阅读。

End If End If Case 10

If (GameNum(0) - 11) Mod 10 < 9 Then

If Command1(GameNum(0) - 11).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) - 11 GameNum(2) = GameNum(2) + 11 GameNum(3) = GameNum(3) + 9 ShowFanku (0) GameSituation = 7 End If End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'正7字型方块的变化 Case 11

If GameNum(0) - 9 > 1 And (GameNum(3) - 22) Mod 10 < 9 Then If Command1(GameNum(0) - 9).Visible = False And _ Command1(GameNum(3) - 22).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) - 9 GameNum(2) = GameNum(2) - 11 GameNum(3) = GameNum(3) - 22 ShowFanku (0)

GameSituation = 12 End If End If Case 12

If (GameNum(0) + 11) Mod 10 > 0 And GameNum(3) - 18 > 1 Then If Command1(GameNum(0) + 11).Visible = False And _ Command1(GameNum(3) - 18).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) + 11 GameNum(2) = GameNum(2) - 9 GameNum(3) = GameNum(3) - 18 ShowFanku (0)

GameSituation = 13 End If End If Case 13

If GameNum(0) + 9 < 198 And (GameNum(3) + 22) Mod 10 > 0 Then If Command1(GameNum(0) + 9).Visible = False And _

21

Command1(GameNum(3) + 22).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) + 9 GameNum(2) = GameNum(2) + 11 GameNum(3) = GameNum(3) + 22 ShowFanku (0)

GameSituation = 14 End If End If Case 14

If (GameNum(0) - 11) Mod 10 < 9 And GameNum(3) + 18 < 198 Then If Command1(GameNum(0) - 11).Visible = False And _ Command1(GameNum(3) + 18).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) - 11 GameNum(2) = GameNum(2) + 9 GameNum(3) = GameNum(3) + 18 ShowFanku (0)

GameSituation = 11 End If End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'反7字型方块的变化 Case 15

If (GameNum(3) - 22) Mod 10 < 8 Then

If Command1(GameNum(2) - 11).Visible = False And _ Command1(GameNum(3) - 22).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) + 9 GameNum(2) = GameNum(2) - 11 GameNum(3) = GameNum(3) - 22 ShowFanku (0)

GameSituation = 16 End If End If Case 16

If GameNum(3) - 18 > 1 Then

If Command1(GameNum(2) - 9).Visible = False And _ Command1(GameNum(3) - 18).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) - 11 GameNum(2) = GameNum(2) - 9

22

GameNum(3) = GameNum(3) - 18 ShowFanku (0)

GameSituation = 17 End If End If Case 17

If (GameNum(3) + 22) Mod 10 > 1 Then

If Command1(GameNum(2) + 11).Visible = False And _ Command1(GameNum(3) + 22).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) - 9 GameNum(2) = GameNum(2) + 11 GameNum(3) = GameNum(3) + 22 ShowFanku (0)

GameSituation = 18 End If End If Case 18

If GameNum(3) + 18 < 198 Then

If Command1(GameNum(2) + 9).Visible = False And _ Command1(GameNum(3) + 18).Visible = False Then HideFanku (0)

GameNum(0) = GameNum(0) + 11 GameNum(2) = GameNum(2) + 9 GameNum(3) = GameNum(3) + 18 ShowFanku (0)

GameSituation = 15 End If End If End Select End Sub

五． 总结

经过一学期的vb课程设计学习，使我对vb有了深入的了解，让我知道了vb是如何使用，如何来开发系统等等。

vb的功能比较完善，这使我很有兴趣来学习，在学习中虽然有很多地方不理解，刚开始时觉得很乱，总是找不到头绪，让自己不知所措， 而且在学习中遇到了不少的麻烦，上课的时候总是有一些问题使自己跟不上老师所讲的的课程，这样使自己少学了不少的知识，还好学校安排了课程设计这门课，在这个时候我算是又重新学了vb程序设计。在这次课程设计的过程中有很多的地方不会，但通过问老师问同学、和查阅书籍来完成的了。虽然自己遇到了少的困难，但是我很认真的学习，来对待自己。

23