UC知道12321金字塔
来源：百度知道 编辑：UC知道 时间：2024/05/31 22:27:36
For i = 1 To 5
Print Tab(20 - 3 * i);
For k = 1 To i
Print k;
Next k
For k = i - 1 To 1 Step -1
Print k;
Next k
Print
Next i
1
121
12321
Print Tab(20 - 3 * i);
For k = 1 To i
Print k;
Next k
For k = i - 1 To 1 Step -1
Print k;
Next k
Next i
1
121
12321
Private Sub Form_Click()
Dim i As Integer '外循环变量
Dim j As Integer '内循环变量
Dim k As Integer '临时变量
Me.Font.Size = 12 '设置打印的字体大小
For i = 1 To 9
Print Tab(30 - i); '打印缩进的空格
For j = 1 To i
Print Trim(j);
Next
If i > 1 Then
k = i - 1
For j = k To 1 Step -1
Print Trim(j);
Next
End If
Print '换行以便下一行开始打印
Next
End Sub
以下代码经过测试通过，执行出来的图形我想可以满足你的要求，你也试一下吧！
Option Explicit
Private Sub Form_Load()
Dim a, b, k As Integer
For a = 1 To 9
For k = 1 To 9 - a
Form1.Print " ";
Next
For b = 1 To a
Form1.Print b;
Next
For b = a - 1 To 1 Step -1
Form1.Print b;
Next
Form1.Print
Next
End Sub