Next

                n = n + 1

            Next

        Next

        For i = 0 To 5

            For j = 0 To 5

                For m = 0 To 4

                    pwin(j + m, i + m, n) = True

                    cwin(j + m, i + m, n) = True

                Next

                n = n + 1

            Next

        Next

        For i = 0 To 5

            For j = 9 To 4 Step -1

                For m = 0 To 4

                    pwin(j - m, i + m, n) = True

                    cwin(j - m, i + m, n) = True

                Next

                n = n + 1

            Next

        Next

        '''''''''''' ********                        初始化获胜组合结束                ********

        For i = 0 To 191

            If pwin(4, 4, i) = True Then

                pflag(i) = False

            End If

        Next

        ''''由于电脑已下了4，4位所以我们需要重新设定玩家的获胜标志

    End Sub

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