Private Sub Command1_Click()
Dim i As Integer, j As Integer
Print Space(27); 1
For i = 2 To 9
Print Space(30 - 3 * i);
For j = 1 To i
Print j;
Next j
For j = i - 1 To 1 Step -1
Print j;
Next j
Next i
End Sub
左边没对齐,好用啊
5行的数字金字塔
是不是杨辉三角啊?