誰能幫我做一題vb6.0程式~很急~

Question

最近要交一題作業~~但是我不會寫~~希望有大大能幫我一下(感謝)

他做出來ㄉ結果是在 Form上面顯示
--5 4 3 2 1
--- 4 3 2 1
-----3 2 1
------2 1
--------1
老師說要用For-Next寫麻煩各位大大幫我解答一下

解答完能跟我說一下怎麼做的ㄇ???

(非常感謝)小弟我贈送20點

Answer 1

Public Sub ForLoop()
Dim i, j, n As Integer
Dim buf As String
n = 9 ' 要印到多少, 可以自己改
For i = n To 1 Step -1 ' 從 n 往下印
buf = Space(10 - i) ' 印前面的空個格
For j = i To 1 Step -1 ' 印那一行的數字
buf = buf & j & " " ' 因為要印在同一行 所以先存在 buf 裡
Next j
Print buf
Next i
End Sub
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.