從X號碼添加到y視覺基本

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

試試這個：

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 

Answer 2

你也可以使用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()