使用vb.net实现五子棋的人工智能5电脑算法2

                                For m = 0 To 9

                                    For n = 0 To 9

                                        If table(m, n) = 2 Then

                                            If pwin(m, n, i) = True Then

                                                pscore(j, k) = pscore(j, k) + 1

                                            End If

                                        End If

                                    Next

                                Next

                            End If

                        End If

                    Next

                Next

            End If

        Next

        '''''''''''' ********                    赋值系统结束                            ********

        '''''''''''' ********                    分值比较算法                            ********

        Dim a, b, c, d As Integer

        Dim cs As Integer = 0

        Dim ps As Integer = 0

        For i = 0 To 9

            For j = 0 To 9

                If cscore(i, j) > cs Then

                    cs = cscore(i, j)

                    a = i

                    b = j

                End If

            Next

        Next

        For i = 0 To 9

            For j = 0 To 9

                If pscore(i, j) > ps Then

                    ps = pscore(i, j)

                    c = i

                    d = j

                End If

            Next

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

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18