（急）这是Vb五子棋悔棋的代码，谁能帮我把每句的注释写下~！！~~

显示全部楼层 · 2011-3-5 06:33:03

Private Sub 悔棋ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 悔棋ToolStripMenuItem.Click
If gamebegin16 = 0 Then

Exit Sub

ElseIf l116 = -1 And l216 = -1 Then

Exit Sub

Else

ayy(l116, l216) = 0

Call paintqipan16()

If ren16 = 1 Then

ren16 = 2

Else

ren16 = 1

End If

l116 = -1

l216 = -1

End If

End Sub

千问 · 2011-3-5 06:33:03

<pre id=\"best-answer-content\" class=\"reply-text mb10\">由于没有对变量进行说明，现在只能推测大概的含义来进行注释
还有是不是每个变量后面多添加了个“16“呀？
Private Sub 悔棋ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 悔棋ToolStripMenuItem.Click
If gamebegin16 = 0 Then
‘如果游戏没有开始

Exit Sub
’悔棋操作无效（退出）
ElseIf l116 = -1 And l216 = -1 Then
‘l1和l2应是棋盘上要悔棋点的坐标，如果坐标值无效（即均为-1）

Exit Sub
’悔棋操作无效（退出）

Else

ayy(l116, l216) = 0
’设置当前坐标点值为0，即设置这个点上没有棋子
Call paintqipan16()
‘重新绘制棋盘
If ren16 = 1 Then
’交换棋手

ren16 = 2

Else

ren16 = 1

End If

l116 = -1
‘设置坐标点为无效

l216 = -1

End If

End Sub