我需要程式碼((燙))20點

Question

執行結果必須如下:
1=1
1+2=3
1+2+3=6
1+2+3+4=10
1+2+3+4+5=15
需要用DO WHILE....LOOP&巢狀回圈寫出來。
最好是可以有兩者在裡面，不然寫出其一也可以。
非常急所以我給20點

感謝你的熱心，不過差粉多喔= =a

我所使用的版本是vb.NET
請大家幫幫忙ㄅ= =+

孝哥差一點點囉，不過我是要一次全部顯示在LABEL裡面。而不是對話視窗@@"

ㄜㄜ~我會改成LABEL可是這段s.Substring(0, s.Length - 1) & "=" & sum.ToString←對我來說程度太高了，老師不會相信，請問有其他更簡單的表達方式ㄇ@"@

而且我看不懂 s.Substring&0, s.Length - 1 & sum.ToString是什麼意思>"<

不是啦，因為沒有交過，剛剛已經有人以身試法= =
百分之百老師知道不是自己用的。
所以請問是否有更簡單方的方法來做這個程式呢?
知道這樣會貶低你的程度，但....幫幫忙拉>"<
可以ㄉ話請給我你的及時通
因為我12點要交ㄌ= =

老大我已經沒有時間了，你是否可以打一個新的程式碼給我，20點我已經決定要給你了。
我剩下20分鐘不到了

Answer 1

Option Base 1
Private Sub Form_Activate()
Print "座號", "姓名", "分數"
Dim a(5), b(5) As String
Dim c(5) As Integer
Lbond = 1
Ubond = 5
i = 1
Do While i <= 5
a(i) = Choose(i, 1, 2, 3, 4, 5)
b(i) = Choose(i, "老王", "小名", "大華", "小花", "小林")
c(i) = Choose(i, 100, 50, 90, 80, 70)
Print a(i), b(i), c(i)
total = total + c(i)
i = i + 1
Loop
Print "平均=", total / 5
End Sub

Answer 2

這是我的做法

Answer 3

我在ｃ／ｃ＋＋已上傳程式碼

Answer 4

作業要自己寫，不要找槍手幫忙...

Answer 5

這樣看來就是不能用函數就對了
我只有 MSN
[e-mail]
--------------------------------------------------------------------------------------
不會吧?!
s.Substring(0, s.Length - 1) & "=" & sum.ToString
這一行有程度的問題嗎？
s.Substring(0, s.Length - 1)
的目的在於將 For Next 迴圈中 s 最後面的一個 "+" 符號去除
Substring 函數的功能在於擷取字串中特定部分的資料
0 表示從頭開始算
s.Length - 1
表示擷取到 s 字串倒數第二個字元為止
你只要會這樣解釋
你們老師應該會相信吧 @@!
------------------------------------------------------------------------------------
改好了
不過真沒想到
你的程式功力竟然連從 MessageBox 改成 Label 顯示的方法都不會
看來你只是要交差了事的樣子 U_U!

Dim i As Integer
Dim j As Integer = 1
Dim sum As Integer
Dim s As String

Label1.Text = ""
Do While (j <= 5)
sum = 0
s = ""
For i = 1 To j
s = s + i.ToString() & "+"
sum = sum + i
Next
Label1.Text = Label1.Text & (s.Substring(0, s.Length - 1) & "=" & sum.ToString()) & vbCrLf
j = j + 1
Loop