“从字符串“”到类型“Double”的转换无效”

Question

我正在 microsoft visual studio 2012 中做一个项目，我正在尝试编写一个应用程序来确定模块平均值。

脚本如下：

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles confirm.Click
        Dim sum As Double
        sum = CDbl(test.Text) * 50% + CDbl(project.Text) * 30% + CDbl(quiz.Text) * 30%
        Dim modulemark As Double
        modulemark = CDbl(CAmarks.Text) * 50% + CDbl(exam.Text) * 50%

        Dim Grade As String
        If sum < 40 Then
            Grade = "F"
        ElseIf sum >= 40 And modulemark < 65 And modulemark >= 40 Then
            Grade = "C"
        ElseIf sum >= 40 And modulemark < 75 And modulemark >= 65 Then
            Grade = "B"
        Else
            Grade = "A"
        End If

该脚本旨在计算分数并在单击名为“确认”的按钮后给出评分。

但是，当我尝试运行编码时，它说：

Microsoft.VisualBasic.dll 中出现“System.InvalidCastException”类型的未处理异常

附加信息：从字符串“”到类型“Double”的转换无效。

有人能看出什么问题吗？我是 Visual Studio 的新手，感谢您的帮助。

附：编辑最近的脚本。

附：感谢用户“Tim”的脚本，但由于某些未知原因，在“Double.TryParse(caMarks.Text, caMarks)”这一行有一个蓝色波浪线指向 caMarks，上面写着“'Text' 不是“双重”的成员”。这简直是​​在扯我的头发！请帮忙！

看起来对象的名称有冲突。

Answer 1

正如 Idle_Mind 在他们的回答中所说，Double.TryParse 是要走的路。这提供了一种尝试将值转换为双精度值的安全方法。如果转换成功，则该方法返回 true，并在 out 参数中返回结果 double。如果转换失败，则返回 false 并返回默认值 double（即 0）。

一个简单的例子：

Dim result As Double
Dim score As String = "75"

If Double.TryParse(score, result) Then
   ' result will be a double with the value of 75
Else
   ' The conversion attempt failed, and result will have a value of 0
End If

因此将其应用于您的方法（没有验证，尽管 Idle_Mind 的回答提供了一个很好的方法）：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles confirm.Click

    Dim sum As Double
    Dim modulemark As Double
    Dim testScore As Double
    Dim projectScore As Double
    Dim quizScore As Double
    Dim marks As Double
    Dim examScore As Double

    Double.TryParse(test.Text, testScore)
    Double.TryParse(project.Text, projectScore)
    Double.TryParse(quiz.Text, quizScore)
    Double.TryParse(CAmarks.Text, marks)
    Double.TryParse(exam.Text, examScore)

    sum = (testScore * .5) + (projectScore * .3) + (quizScore * .3)
    modulemark = (marks * .5) + (examScore * .5)

    Dim Grade As String

    If sum < 40 Then
        Grade = "F"
    ElseIf sum >= 40 And modulemark < 65 And modulemark >= 40 Then
        Grade = "C"
    ElseIf sum >= 40 And modulemark < 75 And modulemark >= 65 Then
        Grade = "B"
    Else
        Grade = "A"
    End If
End Sub

上面代码的解释。

首先，声明了 6 个 Double 变量 - 这是必要的，因为 Double.TryParse 将 out 参数作为第二个参数，并且必须在使用之前声明。您可以使用一个变量（并重复使用它），但为简单起见，我为每个分数选择了一个。

一旦分数被解析（成功与否），就会确定累积的加权总数。请注意，在应用权重修饰符时使用了括号，以确保运算符优先级不会给您带来预期之外的结果。

希望这可以为您澄清一些事情。

Answer 2

因为您要为这个变量分配一个字母等级... 更改Dim Grade As Integer 到Dim Grade As String。

Double.TryParse() 示例：

    Dim testValue As Double, projectValue As Double, quizValue As Double
    If Double.TryParse(test.Text, testValue) Then
        If Double.TryParse(project.Text, projectValue) Then
            If Double.TryParse(quiz.Text, quizValue) Then
                Dim sum As Double
                sum = testValue * 0.5 + projectValue * 0.3 + quizValue * 0.3
                ' ... do something with "sum" ...
            Else
                MessageBox.Show(quiz.Text, "Invalid Quiz Score")
            End If
        Else
            MessageBox.Show(project.Text, "Invalid Project Score")
        End If
    Else
        MessageBox.Show(test.Text, "Invalid Test Score")
    End If