vb编写井字棋

来源：百度知道 编辑：UC知道 时间：2024/06/22 00:54:18
任务:通过此系统可以实现如下功能:两个人对弈,首先在某一行,某一列或某一对角线上连成一线者获胜.
1.窗体上放置一个picture控件,在其内部画出棋盘.棋盘共有3*3个格.
2.红方每走一步,在对应的棋盘格内部,绘制一个红色的圆.
3.蓝方每走一步,在对应的棋盘格内部,绘制一个红色的椭圆.
4.能处理picture控件paint事件.
5.能判断输赢.
6.使用菜单,让红方或蓝方先走.
采用了就追加积分吧，谢谢了先，实在是才疏学浅啊，请各位高手指教啊
我的邮箱是luoqiang8790036@163.com

第三步改一下，蓝方每走一步，在对应的棋盘格内部，绘制一个蓝色的椭圆

Rem 棋盘初始化
Private Sub gameInit()
Dim k As Integer

For k = 0 To 8
a(k \ 3, k Mod 3) = 0
Next
mnuRed.Enabled = True
mnuBlue.Enabled = True
Me.Caption = IIf(rbFirst, "井字棋：现在是红方先走！", "井字棋：现在是蓝方先走！")
Call Picture1_Paint
End Sub

Rem 棋局结束
Private Sub gameOver(ByVal result As String, k As Integer)
MsgBox result
k = 0
Call gameInit
End Sub

完整的代码已经给你了

http://down.csdn.net/source/1289504