Vb字母金字塔问题

来源：百度知道 编辑：UC知道 时间：2024/06/25 06:13:08
麻烦设计代码，急求！！！谢谢！！
需要输出的图形为
A
BBB
CCCCC
DDDDDDD
EEEEEEEEE
FFFFFFFFFFF
GGGGGGGGGGGGG
先谢过啦！如完成，一定高分酬谢！
麻烦各位看下图在修改下！

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim n As Integer

n = 7
For i = 1 To n
Print Space$(n - i);
For j = 1 To (i * 2 - 1)
Print Chr(64 + i);
Next j
Print
Next i

For i = n - 1 To 1 Step -1
Print Space$(n - i);
For j = 1 To i
Print Chr(64 + i); Space$(1);
Next j
Print
Next i

End Sub

好了，和图中一模一样

Option Base 1 

Private Sub Command1_Click() 

Dim a, i, z, b 

a = Array("a", "b", "c", "d", "e", "f", "g") 

b = Array("f", "e", "d", "c", "b", "a") 

For i = 1 To 7 

Print Tab(7 - i + 1);