4

したがって、プログラムは "x" から "y" までのすべての数字を加算する必要があります。

ただし、追加されたすべての数値も表示する必要があります。

つまり、10 から 20 は 10 + 11 + 12 + 13 + 14 + 15 + 16 + 17 + 18 + 19 + 20 = 165 と表示されます。

ここに私が持っているものがあります:

Dim firstnum As Integer = Val(TextBox1.Text)
    Dim secondnum As Integer = Val(TextBox2.Text)
    Dim sum As Integer = 0


    While firstnum <= secondnum

        sum = sum + firstnum
        firstnum = firstnum + 1

        Label3.Text = firstnum & "+"

    End While


    suum.Text = "  =  " & Val(sum)
4

3 に答える 3

3

以下を使用します。

Label3.Text = firstnum & "+"

ループを通過するたびに値を上書きしています。Label3おそらくやりたいことは、既存の値を次の数値と連結することです。

これはあなたの方法であなたを取得する必要があります:

Label3.Text = Label3.Text & firstnum & " + "
于 2012-11-05T13:39:55.173 に答える
3

リンクは大丈夫ですか？Enumerable.Range次に、次を使用できますEnumerable.Sum。

Dim startNum = Int32.Parse(TextBox1.Text)
Dim endNum = Int32.Parse(TextBox2.Text)
Dim numbers = Enumerable.Range(startNum, endNum - startNum + 1) 'inclusive, therefore + 1
Label3.Text = String.Join(" + ", numbers)
suum.Text = numbers.Sum()
于 2012-11-05T13:44:07.993 に答える
0

Label3.Text には、アルゴリズムの最後に最後の数値と「+」のみが含まれます。交換する必要があります

Label3.Text = firstnum & "+"

と

Label3.Text = Label3.Text & firstnum & "+ "
于 2012-11-05T13:41:50.143 に答える