nbsp; intWells(8) = usrWells(3).Wells_Value + usrWells(5).Wells_Value + usrWells(7).Wells_Value
'' 如果任何一线已有机器的两个子并且另外一格仍空,机器方即将成一线
'' 机器落子的结果等于该空格
If intWells(1) = -2 Then
For i = 1 To 3 Step 1
If usrWells(i).Wells_Value = 0 Then
funGetPCWells = i
Exit Function
End If
Next i
ElseIf intWells(2) = -2 Then
For i = 4 To 6 Step 1
If usrWells(i).Wells_Value = 0 Then
funGetPCWells = i
Exit Function
End If
Next i
ElseIf intWells(3) = -2 Then
For i = 7 To 9 Step 1
If usrWells(i).Wells_Value = 0 Then
funGetPCWells = i
Exit Function
End If
Next i
ElseIf intWells(4) = -2 Then
For i = 1 To 7 Step 3
If usrWells(i).Wells_Value = 0 Then
funGetPCWells = i
Exit Function
End If
Next i
ElseIf intWells(5) = -2 Then
For i = 2 To 8 Step 3
If usrWells(i).Wells_Value = 0 Then
funGetPCWells = i
Exit Function
End If
Next i
ElseIf intWells(6) = -2 Then