Question

以下函数将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

Answer 1

如果您的Label1是您要显示之前计算的控件，您只需将Label1.Text = val1.Text & "+" & val2.Text & "=" & result更改为Label1.Text += vbNewLine & val1.Text & "+" & val2.Text & "=" & result即可连接以前的输入。

Answer 2

假设所有label都由此Control （例如表单，面板）处理，您可以使用.OfType获取所有值Label.Text和.Sum

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

每次按下按钮时循环输出

2 个答案: