VB.NET实现五子棋的人工智能(1)

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