Visual Basic计算三角形面积时遇System.InvalidCastException错误求助

错误原因 #

1. 隐式转换不安全：直接将文本框的String类型值赋值给Double变量（如height = TxtHeight.Text）依赖VB的隐式类型转换，即使通过IsNumeric判断，也可能因为空字符串、特殊格式字符串触发InvalidCastException。
2. 赋值方向错误：代码最后一行area = TxtArea.Text逻辑完全颠倒，应该是将计算出的面积值赋值给文本框用于显示，而非把文本框内容赋值给变量。

修正方案 #

使用显式类型转换+TryParse方法替代隐式转换，同时修正赋值方向：

Public Class Form1
    Private Sub BtnArea_Click(sender As Object, e As EventArgs) Handles BtnArea.Click
        Dim base As Double
        Dim height As Double
        Dim area As Double

        ' 验证并转换底边长
        If Not Double.TryParse(TxtBase.Text, base) Then
            MsgBox("请输入有效的数字作为底边长")
            TxtBase.Clear()
            TxtBase.Focus()
            Exit Sub
        End If

        ' 验证并转换高
        If Not Double.TryParse(TxtHeight.Text, height) Then
            MsgBox("请输入有效的数字作为高")
            TxtHeight.Clear()
            TxtHeight.Focus()
            Exit Sub
        End If

        ' 计算面积
        area = 0.5 * base * height

        ' 将结果显示到文本框
        TxtArea.Text = area.ToString()
    End Sub
End Class

关键改进点 #

• Double.TryParse：该方法会尝试将字符串转换为Double类型，转换成功则返回True并将结果存入变量，失败则返回False，比IsNumeric更可靠，能直接处理空字符串、格式错误等情况，从根源避免转换异常。
• 修正赋值逻辑：将计算结果area转换为字符串后赋值给TxtArea.Text，实现结果正常显示。
• 简化流程：合并验证与转换步骤，减少冗余代码，提升可读性。

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