VB中的数字金字塔

来源：百度知道编辑：UC知道时间：2024/07/06 12:46:11

编写程序，打印如下所示的“数字金字塔”：
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个.倒数2行空2个,依次类推
主要是Tab不会,谢谢了

我想你是属于一点就通的，就不罗嗦了，看代码：

Private Sub Form_DblClick()

For i = 1 To 9

For T = 1 To i

Print Tab(10 - i);

For j = 1 To i

Print Trim(j);

For k = j - 2 To 1 Step -1

Print Trim(k);

End Sub

效果图：