-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

假设所有的label都由这个Control （例如表单，面板）处理，您可以使用 .OfTypeLabel.Text来获取和的所有值.Sum

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