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