求VB代码_数字金字塔

2024-12-30 22:06:50
推荐回答(3个)
回答1:

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

     Print

   Next i

End Sub 

左边没对齐,好用啊

回答2:

5行的数字金字塔

回答3:

是不是杨辉三角啊?