五子棋的人工智能

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

                                                                                    作者：张宇

六电脑算法（2）

'''''''''''' ********                    赋值系统                              ********

        For i = 0 To 191

            If cflag(i) = True Then

                For j = 0 To 9

                    For k = 0 To 9

                        If table(j, k) = 0 Then

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

                                For m = 0 To 9

                                    For n = 0 To 9

                                        If table(m, n) = 1 Then

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

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

                                            End If

                                        End If

                                    Next

                                Next

                            End If

                        End If

                    Next

                Next

            End If

        Next

        For i = 0 To 191

            If pflag(i) = True Then

                For j = 0 To 9

                    For k = 0 To 9

                        If table(j, k) = 0 Then

                            If pwi

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