编写程序，打印如下所示的“数字金字塔”

               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

以下是此题的【VB源代码】
Private Sub Form_Click()
    Dim a(1 To 5) As Integer
    For j = 1 To 5
        a(j) = j
    Next j
    For i = 1 To 5
        Print Tab(30 - i * 3);
        For j = 1 To 2 * i - 1
            If j > i Then
                Print a(2 * i - j);
            Else
                Print a(j);
            End If
        Next j
    Next i
End Sub

运行此VB源码后结果情况如下图所示：

 
新世纪计算机基础教育丛书 丛书主编：谭浩强
Visual Basic 程序设计教程 题解与上机指导（第四版） 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_7.5.html