Question

我想在标签中显示从x到y的数字的加法，即26 + 27 + 28 + 29 + 30 = 140。

现在lbl3显示：26 + 30 = 140.我希望它显示26 + 27 + 28 + 29 + 30 = 140。

这是我到目前为止所拥有的。

    Dim startingNum As Integer = Val(txtbx1.Text)
    Dim endingNum As Integer = Val(txtbx2.Text)
    Dim totalNum As Integer = (endingNum - startingNum) + 1
    Dim totalSum As Integer = (totalNum / 2) * (2 * startingNum + (totalNum - 1))

    For count As Integer = startingNum To endingNum Step 1

        Me.lbl3.Text = startingNum & " + " & count & " = " & totalSum

    Next count

Answer 1

您也可以使用Linq解决此问题：

' parsing/validation omitted
Dim numbers = Enumerable.Range (startingNum, endingNum - startingNum + 1)

' will resolve to a call to String.Concat
lbl3.Text = String.Join(" + ", numbers) & " = " & numbers.Sum ()

Answer 2

试试这个：

    Dim startingNum As Integer = Val(txtbx1.Text)
    Dim endingNum As Integer = Val(txtbx2.Text)
    Dim totalNum As Integer = (endingNum - startingNum) + 1
    Dim totalSum As Integer = (totalNum / 2) * (2 * startingNum + (totalNum - 1))
    Dim result as String = startingNum

    For count As Integer = startingNum + 1 To endingNum Step 1
        result = result & " + " & count
    Next count
    Me.lbl3.Text = result & " = " & totalSum

添加从x到y visual basic的数字

2 个答案: