リストボックス値を計算する

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です。