VB“从字符串“s”到类型“布尔”的转换无效。”

Question

如果重要的话，我使用的是 Visual Studio Express 2012 和 Windows 7 Professional。

我有一个简单的 VB 程序，它会抛出这个异常：

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

从字符串“s”到类型“布尔”的转换无效。

这是代码的麻烦部分：

If stroperation = "S" Or "s" Then

我做错了什么？

整个 VB 程序：

Public Class MainForm
Public stroperation, strnumber1, strnumber2, strresult As String
Public decnumber1, decnumber2, decresult As Decimal
Public operation
Private Sub calculateButton_Click(sender As Object, e As EventArgs) Handles calculateButton.Click
    operation = operationTextBox.Text
    stroperation = CStr(operation)
    strnumber1 = number1TextBox.Text
    decnumber1 = CDec(strnumber1)
    strnumber2 = number2TextBox.Text
    decnumber2 = CDec(strnumber2)
    If stroperation = "S" Or "s" Then
        decresult = decnumber1 - decnumber2
        resultLabel.Text = "Difference: " & strresult
    ElseIf stroperation = "A" Or "a" Then
        decresult = decnumber1 + decnumber2
        resultLabel.Text = "Sum: " & strresult
    Else
        MsgBox("Enter A, a, S, or S.")
    End If
End Sub
End Class

Answer 1

你需要改成If stroperation = "S" Or stroperation = "s" Then

或者更好的是，您可以这样做：

If stroperation.Equals("S", StringComparison.CurrentCultureIgnoreCase) Then