怎么填才能打印下图那个金字塔

来源：百度知道 编辑：UC知道 时间：2024/06/22 03:04:26
Option Explicit
Public Sub pyramid()
'该过程用于打印数字金字塔
' 1
' 222
' 33333
' 4444444
' 555555555
' 6666666
' 77777
' 888
' 9
Dim i As Integer
Dim j As Integer
Dim start As Integer '每行起始空格数
Dim num As Integer '每行数字个数
For i = 1 To 9
If i <= ---1---- Then
start = 20 - i
num = 2 * i - 1
Else
start = 10 + i
num = 19 - 2 * i
End If
For j = 1 To ---2----
Form1.Print Tab(start+j);---3----
Next j
Form1.Print
Next i
End Sub

问题问得不是很清

你的意思这是一个源程序,输入该源程序;会形成一个金字塔形状.如果要打印出这样的话,你肯定要将其放置认这个程序的软件中.如C++等

Private Sub Command1_Click()
Dim i, j, k, b As Integer
For i = 1 To 6
Print Tab(1 - i);
For j = 1 To i - 1
Print i - 1;
Next j
Print
Next i
For k = 5 To 1 Step -1
Print Tab(1 - b);
For b = 1 To k - 1
Print 11 - k;
Next b
Print
Next k
End Sub

1：5
2：num
3: i;