[VB]网络对战五子棋

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

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

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

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...