Question

我没有收到任何错误，并且Web应用程序已按预期在Visual Studio中打开。我正在用Visual Basic编写。但是，当我单击“计算”按钮时，没有任何计算。一切都写在“单击时”事件中，所以我不确定为什么我得不到任何计算。

Dim addFee As Integer
Dim monthlyDues As Integer
Dim basicFee As Integer

If chkGolf.Checked = True Then
    addFee += 35
End If
If chkTennis.Checked = True Then
    addFee += 30
End If
If chkRac.Checked = True Then
    addFee += 20
End If
monthlyDues = Val(addFee) + Val(basicFee)

它应将复选框中的所有金额加在一起，然后在月费文本框中显示总费用（转换为整数）

Answer 1

您应该将结果的值分配给文本框的文本。

 monthlyDues = Val(addFee) + Val(basicFee)
 yourTextbox.Text  = monthlyDues.ToString()

Visual Basic健康费

1 个答案: