有沒有人是”VB 6.0”的高手壓~~我是初學者有個小問題!

Question

我是剛學VB的初學者
最近看到

For ......next的迴圈教學
但是後面有一題是叫我寫出這樣的程式

9 8 7 6 5 4 3 2 1
...8 7 6 5 4 3 2
......7 6 5 4 3
.........6 5 4
............5
(.......請把它視為空白@@)
請問怎麼用FOR.....NEXT寫出這樣的東西>

Answer 1

Private Sub Command1_Click()
For j = 4 To 0 Step -1
Print Space((4 - j) * 4);
For i = j To -j Step -1
Print i + 5;
Next i
Print
Next j
End Sub

Answer 2

請注意: 用不同的字體會影響到數字的對齊
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim buf As String
For i = 0 To 4
buf = Space(i)
For j = 9 - i To 1 + i Step -1
buf = buf & j
Next j
Print buf
Next i
End Sub