如何VB打印如下数字

来源：百度知道 编辑：UC知道 时间：2024/06/04 23:38:41
9
8 9 8
7 8 9 8 7
6 7 8 9 8 7 6
5 6 7 8 9 8 7 6 5
6 7 8 9 8 7 6
7 8 9 8 7
8 9 8
9
高手帮忙下~不要用取字符串的方法~

楼上方法好。今天接触到确实受益了。
百度常省略了段前空格导致排版问题，可能表达不了楼主的本意。

所以冒昧加了句：
Private Sub Form_Click()
Dim n As Long, m As Long, x As Long
For n = -4 To 4
m = 4 - Abs(n)
Print Spc(12 - 3 * m);
For x = -m To m
Print 9 - Abs(x);
Next
Print
Next
End Sub

若觉得好，请选择楼上CFMatrix的为最佳答案。

Private Sub Form_Click()
    Dim n As Long, m As Long, x As Long
    For n = -4 To 4
        m = 4 - Abs(n)
        For x = -m To m
            Print 9 - Abs(x);
        Next
   &