尝试编写代码(也就是扯掉我的头发)

Question

我没有任何编程背景，所以我向你们寻求帮助。我花了大约12个小时试图找出这个问题，使用我的书，微软网站，这个网站，几个朋友，我不知道代码出了什么问题。是的，这是一个家庭作业的问题，我不是要求你做它，我是请某人解释一下为什么它不能工作。

该项目背后的想法是: A)选择一个单选按钮，一个用于白天呼叫，一个用于夜间呼叫，一个用于非工作时间呼叫。B)输入你交谈的分钟数，选择calculate C) Magic (数学)发生和pow，它会给你一个数字。

如果选择“无线电日”，费率为每分钟7美分，“无线电之夜”=每分钟12美分，“无线电关闭时间”=每分钟5美分。

因此，这是按钮单击事件的代码，我尝试了许多不同的方法，但它仍然导致答案是：$0.00

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click
    Dim dblcharge2 As Double
    Dim dblmin As Double
    Dim blnInputOk As Boolean = True
    'give value to variables'

    If Double.TryParse(txtMin.Text, dblmin) And IsNumeric(txtMin.Text) And dblmin > 0 Then
        If radDay.Checked = True Then
            lblCharge2.Text = dblmin * 0.07
            lblCharge2.Text = dblcharge2.ToString("c")
        ElseIf radEve.Checked = True Then
            lblCharge2.Text = dblmin * 0.12
            lblCharge2.Text = dblcharge2.ToString("c")
        ElseIf radOff.Checked = True Then
            lblCharge2.Text = dblmin * 0.05
            lblCharge2.Text = dblcharge2.ToString("c")
        End If
    End If
    'Try Parse and calculate the number'
End Sub

Answer 1

这是因为你用"dblcharge2“设置了标签。请尝试以下操作：

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click
  Dim dblcharge2 As Double
  Dim dblmin As Double
  Dim blnInputOk As Boolean = True
  'give value to variables'

  If Double.TryParse(txtMin.Text, dblmin) And IsNumeric(txtMin.Text) And dblmin > 0 Then
    If radDay.Checked = True Then
        dblcharge2 = dblmin * 0.07
        lblCharge2.Text = dblcharge2.ToString("c")
    ElseIf radEve.Checked = True Then
        dblcharge2 = dblmin * 0.12
        lblCharge2.Text = dblcharge2.ToString("c")
    ElseIf radOff.Checked = True Then
        dblcharge2 = dblmin * 0.05
        lblCharge2.Text = dblcharge2.ToString("c")
    End If
  End If
  'Try Parse and calculate the number'
End Sub