[VB]网络对战五子棋

近来整理代码时发现这个不记得是07还是08年写的自我感觉还算良好的代码（因为本人算法方面实在太不在行，能做出如此代码估计也几近本人极限了，望各位高人看到后不要嘲笑），遂发上来与大家交流，下面是当年写下的代码简介：

 

此代码为本人某日心血来潮时写的。。。总共花了 3 天多的时间才完成。。。
最初并没有看网上的代码，只想全部靠自己的思考完成
主要是判断双方输赢部分的代码实现比较困难。。。
后来还是上网下载了一些代码作为参考
但是发现大部分代码判断输赢的函数均很少包含判断“四子连环两头空”的情况
(五子棋的术语我实在不懂，这种情况应该叫什么我还真要请教下各位高人。。。)
另外就是这些代码基本上都是用循环来判断局势的
而我最初就想用回溯法来完成，最后终于花了近两天时间把判局函数做出来了 :)
但是，因为本人五子棋水平实在太次，所以不会做 AI
这个也是“网络对战版”的成因。。。”

 

代码下载地址：http://download.csdn.net/source/1419777