贵州塑料模具:vb数字金字塔问题!!!!!!!

来源:百度文库 编辑:高校问答 时间:2024/04/27 18:57:13
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
......
1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

知道的帮个忙!!! 谢谢
能给出程序循环的解释吗?

Private Sub Command1_Click()
For i = 1 To 9
For k = 1 To i
Print k;
Next
For k = i - 1 To 1 Step -1
Print k;
Next
Print
Next
End Sub