VB.NET井字棋程序System.InvalidCastException错误排查求助

问题1：初始代码中两位玩家分数同时增加 #

未添加获胜方判断时，直接执行player1Score = player1Score + 1并设置标签文本，导致无论哪方获胜，Player1的分数都会被错误增加，甚至因逻辑疏漏触发Player2分数误加。

问题2：添加判断后触发System.InvalidCastException错误 #

你添加的错误判断代码：

if whosTurn = x  Player1Score = Player1Score + 1   lblP1ScoreNumber.Text = Player1Score             ElseIf WhosTurn = 0 Then                 Player2Score = Player2Score + 1                 lblP2ScoreNumber.Text = Player2Score             End If

触发类型转换错误，原因如下：

• WhosTurn是String类型（初始赋值为Player1即字符串"X"，切换后为Player2即"O"），但你在ElseIf中用它和数值0比较，VB.NET会自动尝试将字符串"X"/"O"转换为数值类型，转换失败抛出InvalidCastException。
• 代码开头的whosTurn = x中的x是未赋值的Public Property X As String，逻辑上应使用Player1或直接写字符串"X"。
• 代码格式混乱，缺少必要的分隔符或换行，导致VB.NET解析逻辑出错。

解决方法 #

1. 修正获胜判断逻辑 #

使用字符串类型的玩家标识进行判断，确保类型匹配，同时规范代码格式：

If WhosTurn = Player1 Then ' 或直接写 WhosTurn = "X"
    Player1Score = Player1Score + 1
    lblP1ScoreNumber.Text = Player1Score.ToString()
ElseIf WhosTurn = Player2 Then ' 或直接写 WhosTurn = "O"
    Player2Score = Player2Score + 1
    lblP2ScoreNumber.Text = Player2Score.ToString()
End If

注：将整数类型的分数赋值给Label的Text属性时，建议显式调用.ToString()，避免隐式转换可能带来的问题。

2. 优化现有代码中的冗余逻辑 #

你提供的完整代码中，TakeTurn方法内的获胜判断逻辑已正确，但可做以下优化：

• 移除无用的XScore变量和Public Property X As String，避免变量命名混淆。
• 修改ResetBoard中的ElseIf WhosTurn <> Player1 Then End逻辑，直接终止程序不合理，改为正常切换回合或提示更友好。
• 统一使用Player1和Player2常量进行判断，而非直接写字符串"X"/"O"，提高代码可维护性。

简化后的核心判断代码示例 #

If CheckForWin(WhosTurn) Then
    MessageBox.Show($"Player {WhosTurn} Won")
    Select Case WhosTurn
        Case Player1
            Player1Score += 1
            lblP1ScoreNumber.Text = Player1Score.ToString()
        Case Player2
            Player2Score += 1
            lblP2ScoreNumber.Text = Player2Score.ToString()
    End Select
    ResetBoard()
    Return
End If

内容的提问来源于stack exchange，提问作者Dylaka83