Vb.net 需要帮助查找Visual Basic代码中的错误吗

我打算制作一个小应用程序，显示州/县/市的税率，有一个框来输入季度销售额，还有一个提交按钮来计算该金额并显示所有三个税额。每次我点击submit，所有文本框中都会有$0.00，我不确定我做错了什么。

我想问题出在这里。。你必须说清楚。此外，您还可以删除标签1。单击。如果不单击它，它就没有任何功能

Public Class Form1

    Dim salesAmt As Double
    Const stateRate As Double = 0.025
    Const countyRate As Double = 0.005
    Const cityRate As Double = 0.0025
    Dim stateTax As Double
    Dim countyTax As Double
    Dim cityTax As Double



    Public Sub Label1_Click(sender As Object, e As EventArgs) Handles entryLabel.Click
        salesAmt = Convert.ToDouble(salesAmtTextBox.Text)

    End Sub

    Public Sub subButton_Click(sender As Object, e As EventArgs) Handles subButton.Click

        stateTax = stateRate * salesAmt
        countyTax = countyRate * salesAmt
        cityTax = cityRate * salesAmt

        stateLabel.Text = stateTax.ToString("C2")
        countyLabel.Text = countyTax.ToString("C2")
        cityLabel.Text = cityTax.ToString("C2")
    End Sub
End Class

---

我刚刚意识到我的错误，谢谢！是的，idk为什么在那里，我想我只是没有正确地阅读它，只是把它放在了我以为我在工作的地方，天哪，我觉得很愚蠢，太棒了。您也可以在单击子按钮时声明它。示例：Dim salesAmt=salesAmtTextBox.Text。如果问题得到回答，请单击左角的“勾选”。

Public Sub subButton_Click(sender As Object, e As EventArgs) Handles subButton.Click

stateTax = stateRate * salesAmtTextBox.Text
countyTax = countyRate * salesAmtTextBox.Text
cityTax = cityRate * salesAmtTextBox.Text

stateLabel.Text = stateTax.ToString("C2")
countyLabel.Text = countyTax.ToString("C2")
cityLabel.Text = cityTax.ToString("C2")
End Sub