如何用VB语言实现四连环游戏（重力四子棋）？
要求如下
1.四连环是一个双人游戏，两位玩家轮流将自己的棋子放在一个8列6行的筒状棋盘上。玩家每次只需要指定棋盘上的列号，则棋子自动落到这一列的底部或者叠放于该列已有棋子的上面。游戏的目标是在对手之前将自己的4个相邻棋子放在一行、一列或一条斜线上。
2.程序扮演一位玩家，用户作为其对手。程序采用随机方式选择要放棋子的列，用户则是手工输入要放棋子的列。
假设用户输入的都是整数，当用户输入的列号不在1到8之间时，程序会提示用户，并让用户重新输入；当用户输入的列号已经放满了棋子时，程序也会提示用户，并让用户重新输入。而当程序自己在随机地选择要放棋子的列时，它会自动地忽略那些已经放满棋子的列。
3.由程序判断双方的胜负，分出胜负则程序结束。当出现棋盘满了而无法放棋子的时候，判为平局。

你可以用一个二维数组chess(7,5)表示棋盘。
棋子的放置可以用堆叠数组p(7)来检定。
堆叠数组指示了每一列包含的棋子数，这样就能很轻松控制新放置棋子的位置了。
接下来则是获胜检定和流局（平手）检定：由于构成获胜时的条件有四种（横竖撇捺），你只要用上循环判定就可以。流局的话，简单点的办法是用空位变量emp判定，emp=0则表示流局；复杂点的办法是在空位变量的基础上加上预判定，我就不赘述了。

请问楼主还找得到这个代码吗？如果找得到的话可以发我一份吗 谢谢了555

楼主现在还能找到这个代码吗？如果可以的话，能否发我一份，谢谢

各位大佬，我正在制作了一个学生管理系统，在下拉框里选择学号，其他文本框出现学生信息，这个怎么弄?

四子棋 没接触过

天哪，这个程序终于做完了。
另贴发出。

啊那请问闲鱼上的那个xgg做出来的代码会不会很难，超纲的那种？

人工智能？包括人机对战功能？那就不简单，不包括人机对战，就非常的简单。

q：2316773638