回答

1

把所有的文本框放在哪裏用戶將在一個公共容器,如groupbox或panel控件中輸入一個值。然後,使用這樣的代碼,以總量可達值:

Dim sum As Integer = 0 
For Each box As TextBox In MyContainer.Controls.OfType(Of TextBox)() 
    sum += Integer.Parse(box.Text) 
Next box 
Total.Text = sum.ToString() 

你甚至可以得到這個下降到一個班輪:

Total.Text = MyContainer.Controls.OfType(Of TextBox)().Select(Function(s) Integer.Parse(s.Text)).Sum()