VB五子棋代码.docVIP

界面设计：运行界面：代码如下：Option ExplicitConst SubWidth = 400 定义画五子棋表格的每格长度和宽度Private P2PlayColor As Integer 实现黑白棋子的交替进行Private MyColor As Integer 标记黑白双方棋子颜色Private IfSucceed As Boolean 表示是否胜利Const pi = 3.14159 定义字符常量pi=3.14159Private centerx As SinglePrivate centery As SinglePrivate radius As SinglePrivate DataArray(14, 14) As Integer 保存棋盘中棋子的位置信息(空子=3 黑棋=1 白棋=0)Private sumtime As Integer 记录总时间来判断谁超时Private ifStarteasy As Boolean 标记简单难度下计时功能是否可以开启 （ifStarteasy=true时 每落子一次计时开启一次）Private ifStartnormal As Boolean 标记中等难度下计时功能是否可以开启 （ifStartnormal=true时 每落子一次计时开启一次）Private ifStarthard As Boolean 标记困难难度下计时功能是否可以开启 （ifStarthard=true时 每落子一次计时开启一次） 单击命令按钮退出退出Private Sub CmdExit_Click() EndEnd SubPrivate Sub CmdStart_Click()Dim i As IntegerDim m As IntegerDim n As Integer绘制棋盘PicQiPan.ClsPicQiPan.ForeColor = vbBlackFor i = 1 To 14 PicQiPan.Line (SubWidth, SubWidth * i)-(SubWidth * 14, _SubWidth * i) PicQiPan.Line (SubWidth * i, SubWidth)-(SubWidth * i, _SubWidth * 14)Next i棋盘落点信息初始化For m = 0 To 14 For n = 0 To 14 DataArray(m, n) = 3 Next n Next m 主要标记信息初始化 P2PlayColor = 0MyColor = 0IfSucceed = FalseifStarteasy = FalseifStartnormal = FalseifStarthard = FalseTimer2.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = FalseFrmMain.Clssumtime = -1End Sub简单难度Private Sub fileeasy_Click()ifStarteasy = Truesumtime = -1MsgBox 双方下每步棋的思考时间最多20秒，否则超时清盘End Sub通过文件退出退出Private Sub fileexit_Click() EndEnd Sub困难难度Private Sub filehard_Click()ifStarthard = Truesumtime = -1MsgBox 双方下每步棋的思考时间最多5秒，否则超时清盘End Sub中等难度Private Sub filenormal_Click()ifStartnormal = Truesumtime = -1FrmMain.ClsMsgBox 双方下每步棋的思考时间最多10秒，否则超时清盘End Sub通过文件重新开始实现棋盘初始化Private Sub filerestart_Click() Call CmdStart_ClickEnd SubPrivate Sub Form_Load()Dim i As IntegerDim m As IntegerDim n As Integer绘