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

　　事实上，这个AI构想是很强大的如果你不是很厉害的五子棋高手的话，可能很快会被计算机打败。我在联众上可是中级棋手啊，跟这种构想打的时候胜率也不是很高。

　　使用vb.net编写五子棋

　　一、编写前的准备：

　　1、用计算机的思想描述整个下棋的过程

　　考虑步骤：

　　（1）为了简便我们可以先让电脑先走第一步棋，电脑每走一步就会封掉许多玩家的获胜可能情况。

　　（2）当玩家走棋的时候我们首先应该考虑玩家走棋的合法性。

　　（3）如果合法，那么玩家也会封掉许多电脑的获胜的可能情况。

　　（4）电脑的思考路径：首先判断当前玩家和电脑的所有获胜组合是否需要进行加强赋值，

　　是进行加强赋值，否则进行普通的赋值。

　　（5）比较当前玩家和电脑谁的分值最大。将分值最大的点作为电脑的下一步走法。

　　2、利用vb.net窗体和图形工具建立五子棋的棋盘界面

　　（1）添加一个picturebox控件

　　作用：使用picturebox控件绘制棋子和棋盘

　　（2）添加一个label控件

　　作用：显示当前的获胜标志，也就是当某一方获胜或和棋时显示此标签。

　　（3）添加一个mainmenu控件

　　作用：控制游戏的开始或结束

　　（4）添加一个mediaplay组件

　　作用：使程序可以播放音乐。

　　3、设置整体框价

　　我们采取10*10的棋盘，为主要的平台。利用数组定义整个棋盘桌面，利用数组定义获胜组合以及获胜标志等。

　　二，声明全局数组和变量

　　定义虚拟桌面：

　　Dim table(9, 9) As Integer

　　定义当前玩家桌面空格的分数：

　　Dim pscore(9, 9) As Integer

　　定义当前电脑桌面空格的分数：

　　Dim cscore(9, 9) As Integer