-1

次の関数は、2 つの数値を加算し、合計を val1 に移動して、ユーザーがさらに数値を追加できるようにします。各計算の出力を印刷する必要があります。(例 2+2=4 nextline 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
4

2 に答える 2

1

あなたLabel1が前の計算を表示したいコントロールである場合、あなたがする必要があるのは、前の入力を連結するように変更Label1.Text = val1.Text & "+" & val2.Text & "=" & resultすることだけです。Label1.Text += vbNewLine & val1.Text & "+" & val2.Text & "=" & result

于 2013-02-18T05:45:18.977 に答える
0

すべてがlabelthis Control (例: Form、Panel)によって処理され、 .OfTypeを使用 してLabel.Textandのすべての値を取得できると仮定します。.Sum

Dim sum = Me.Controls.OfType(Of Label)().Sum(Function(c) Int32.Parse(c.Text))
于 2013-02-18T05:48:57.067 に答える