五子棋的人工智能

                                                          ———— 利用策略类AI和vb.net实现五子棋

                                                                                    作者：张宇

  六，电脑算法（1）

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

    ''''** 模块名称:  diannao

    ''''**

    ''''** 描述:   此程序主要执行以下功能：

    ''''**                 1. 初始化赋值系统。

    ''''**                 2. 赋值加强算法。

    ''''**                 3. 计算电脑和玩家的最佳攻击位。

    ''''**                 4. 比较电脑和玩家的最佳攻击位并决定电脑的最佳策略。

    ''''**                 5. 执行检查获胜函数。

    ''''**

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

    Sub diannao()

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

        Dim dc As Integer

        Dim cab As Integer

        Dim pab As Integer

        For i = 0 To 9

            For j = 0 To 9

                pscore(i, j) = 0

                cscore(i, j) = 0

            Next

        Next

        ''''初始化赋值数组

        '''''''''''' ********                        电脑加强算法                ********

        For i = 0 To 191

            If cflag(i) = True Then

                cab = 0

                For j = 0 To 9

                    For k = 0 To 9

                        If table(j, k) = 1 Then

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

                                cab = cab + 1

                            End If

                        End If

                    Next

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