End If

        Next

        ''''重设电脑的获胜标志

        checkwin()

        ''''检查当前玩家是否获胜

        diannao()

        ''''调用电脑算法

    End Sub

五，获胜检查算法。

    ''''*****************************************************************************

    ''''** 模块名称:  checkwin

    ''''**

    ''''** 描述:       此模块执行以下功能:

    ''''**                 1. 检查是否和棋。

    ''''**                 2. 检查电脑是否获胜。

    ''''**                 3. 检查玩家是否获胜。

    ''''**

    ''''*****************************************************************************

    Sub checkwin()

        Dim i, j, k, m, n As Integer

        Dim ca As Integer

        Dim pa As Integer

        Dim cnormal As Integer = 0

        For i = 0 To 191

            If cflag(i) = False Then

                cnormal = cnormal + 1

            End If

        Next

        If cnormal = 190 Then

            Label1.Visible = True

            Label1.Text = "和棋，请重新开始！"

            PictureBox1.Refresh()

            theplayflag = False

            Exit Sub

        End If

        ''''设定和棋规则

        For i = 0 To 191

            If cflag(i) = True Then

                ca = 0

                For j = 0 To 9

                    For k = 0 To 9

                        If table(j, k) = 1 Then

                            If cwin(j, k, i) = True Then

                                ca = ca + 1

                            End If

                        End If

                    Next

                Next

上一页  [1] [2] [3]  下一页