编写五子棋游戏中，向棋盘走子这一步被卡住了，高手帮忙

2006-02-12 01:36:46 420 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用HTML5 Canvas打造智能五子棋对战游戏本文详细介绍了如何使用HTML5 Canvas从零开始构建一个智能五子棋对战游戏。内容涵盖棋盘绘制、鼠标交互、胜负判定算法以及实现一个基于评分表的AI对手。通过此项目，开发者可以深入理解Canvas绘图、游戏状态管理及基础AI算法，是前端游戏开发的绝佳实践。阅读详情

Private Sub picBoard_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'落子操作
sx = Fix(X / 21) + 1: sy = Fix(Y / 20) + 1 '求落子位置
If Board(sx, sy) <> 0 Then Exit Sub
Call sndPlaySound("PutStone.wav", 0) '播放声音
Board(sx, sy) = Server '储存棋子数据
DrawBoard '重画棋盘
result = GameResult(Server) '判断游戏是否结束
If result = Server Then '取得胜利
MsgBox "恭喜！您取得了本局胜利！", vbOKOnly, "对局结束"
Win(Server) = Win(Server + 1)
If Server = 1 Then Lost(2) = Lost(2) + 1 Else Lost(1) = Lost(1) + 1
frmMain.lblBlackScore.Caption = Str(Win(1)) + "胜" + Str(Lost(1)) + "败"
frmMain.lblWhiteSocre.Caption = Str(Win(2)) + "胜" + Str(Lost(2)) + "败"
Me.cmdAgain.Enabled = True
End If
Send "1" + Chr(sx) + Chr(sy) '通过网络向对方发送落子信息
picBoard.Enabled = False '在对方走棋时间内，已方不能再落子
End Sub

上面是向棋盘落子的函数，但是一直提示 Subscript Out of range... 不知道是什么原因

我把我的源代码传到 http://www.9101.cn/f0511s1/go.rar
请高手们帮我看看，万分感谢！

...全文