用VB实现井字游戏

''定义棋盘格子数据结构
Private Type Wells
    Wells_X As Long
    Wells_Y As Long
    Wells_Value As Integer
End Type
   
''定义棋盘格子的实例数组
Private usrWells(1 To 9) As Wells
    
''定义响应点击操作的逻辑棋盘格子代号数组
Private intWellsIndex(1 To 3, 1 To 3) As Integer
    
''定义玩家的玩过的盘数和积分
Private lngPlayerTurn As Integer, lngPlayerScore As Long

''定义游戏开始标志
Private blnGameStart As Boolean

''定义玩家胜利和失败标志
Private blnPlayerWin As Boolean, blnPlayerLost As Boolean

''定义枚举常量标识玩家类型
Private Enum Player
    MAN = 0
    COMPUTER = 1
End Enum

''该过程用于显示游戏信息
Private Sub Form_Load()
    Me.Show
    Me.Caption = "BS井字游戏 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"
End Sub

''该过程用于重新开始开始游戏
Private Sub cmdGameStart_Click()
    blnGameStart = True
    lngPlayerTurn = lngPlayerTurn + 1
    Me.picWells.Cls
    Call subGameInitialize
    Call subScreenRefresh
End Sub

''该过程用于显示游戏规则
Private Sub CmdGameRules_Click()
    Beep
    MsgBox " BS井字游戏：一个最简单的智力游戏，您将与机" & Chr(13) & _
           "器在9个格子大小的棋盘上一决高下。由您先开始" & Chr(13) & _
           "和机器轮流，每次在任意的空格上下一枚棋子。先" & Chr(13) & _
           "在棋盘上横向、纵向或对角线上排成三枚相同棋子" & Chr(13) & _
           "的一方即可获得游戏的胜利，祝您好运！！", 0 + 64, "游戏规则"
End Sub

''该过程用于显示游戏开发信息
Private Sub cmdAbout_Click()
    Beep
    MsgBox "BS井字游戏" & "(V-" & App.Major & "." & App.Minor & "版本)" & Chr(13) & Chr(13) & _
           "" & Chr(13) & Chr(13) & _
           "由PigheadPrince设计制作" & Chr(13) & _
           "CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"
End Sub

''该过程用于退出游戏
Private Sub cmdExit_Click()
    Beep
    msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS井字游戏")
    If msg = 6 Then End
End Sub

''该过程用于实现玩家向井字棋盘中下棋子
Private