每次按下循環輸出按鈕

-1

以下函數將2個數字相加，然後將總數移至val1並允許用戶添加更多數字。我需要打印每個計算的輸出。（例2 + 2 = 4下一行4 + 2 = 6）目前我有打印第一個計算的標籤。每次按下求和按鈕時，如何打印輸出val1，val2和結果的循環？每次按下循環輸出按鈕

Sub sum(s As Object, E As EventArgs) 
     val2.Text = txtinput.Text 
     Dim result = CInt(val1.Text) + CInt(val2.Text) 
     txtinput.Text = result 
     Label1.Text = val1.Text & "+" & val2.Text & "=" & result 
     val1.Text = result 
     val2.Text = "" 
End Sub

來源

2013-02-18 rupes0610

如果您Label1是要顯示前面的計算，所有你需要做的是改變Label1.Text = val1.Text & "+" & val2.Text & "=" & result到Label1.Text += vbNewLine & val1.Text & "+" & val2.Text & "=" & result到Concat的先前輸入的控制。

來源

2013-02-18 05:45:18

所有值保持它的傢伙'：d ' – spajce 2013-02-18 06:01:01

工作很好！謝謝！ – rupes0610 2013-02-18 06:28:16

假設所有label由該Control（EX形態下，面板）。處理，你可以使用.OfType獲得的Label.Text和.Sum

Dim sum = Me.Controls.OfType(Of Label)().Sum(Function(c) Int32.Parse(c.Text))

來源

2013-02-18 05:48:57 spajce

每次按下循環輸出按鈕

回答

相關問題