列表框数值计算

Question

当我测试时，这会将数量和金额的文本框重置为零，我该如何计算呢？

Dim Number As Integer

txtNumber.Text = Number

Dim orchestra As Integer = 40
Dim mezz As Integer = 27.5
Dim general As Integer = 15
Dim balcony As Integer = 10

If lstSection.SelectedItem = "Orchestra" Then
  txtAmount.Text = (Number * 40)
ElseIf lstSection.SelectedItem = "Mezzanine" Then
  txtAmount.Text = (Number * 27.5)
ElseIf lstSection.SelectedItem = "General" Then
  txtAmount.Text = (Number * 15)
ElseIf lstSection.SelectedItem = "Balcony" Then
  txtAmount.Text = (Number * 10)
End If

Answer 1

假设我的编辑是正确的，并且您打算在同一个方法中声明您的Number变量，那么您看到的问题是因为您没有为Number赋值。

Integer值类型始终使用默认值0进行初始化。

例如：txtAmount.Text = (0 * 40)，当然，它将始终是0。