Private Sub Form_Click()
  Const n = 8
       Dim a(n + 1) As Byte, i As Integer, j As Integer
       Dim s As String
       '给数组a赋初值
       For i = 1 To n + 1
               a(i) = 0
       Next i
       '计算并打印第一个数
       a(1) = 1
       Form1.Print Space(2 * n + 2); '计算数字前的空格数
       Form1.Print a(1)
       '计算其余行的数并打印
       For i = 2 To n + 1
               a(i) = a(i - 1)
               For j = i - 1 To 2 Step -1
                     a(j) = a(j - 1) + a(j)
               Next j
               Form1.Print Space((n - i + 1) * 2);
               For j = 1 To i
                       s = Trim(Str(a(j)))
                       Form1.Print Space(Int((4 - Len(s)) / 2 + 0.5)) + s + Space(Int((4 - Len(s)) / 2 + 0.5));
               Next j
               Form1.Print
       Next i

End Sub