求救VB高手！！！！！！ 需要做一个字母塔！！！！

Question

类似：
A
A B A
A B C B A
A B C D C B A
A B C D E D C B A
A B C D E F E D C B A
............................
以此类推
高手快来啊！
紧急！！用VB的。。
不是像那样的
是像杨辉三角那样的格式
我本来打的是那样 但是出来就是这样了

Answer 1

Private Sub Form_Click()
Dim a(1 To 9, 1 To 9) As Integer
For i = 1 To 9
a(i, 1) = 1
a(i, i) = 1
Next i
For i = 3 To 9
For j = 2 To i - 1
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
Next j
Next i

For i = 1 To 9
For j = 1 To i
Print Tab(20 - 2 * i + 4 * j); Chr(a(i, j) + 64);
Next j
Print
Next i
End Sub

Answer 2

Private Sub Form_Load()
Me.Show
l = 7 '要显示几行,据l的值来定
n = Asc("A")
For i = 0 To l - 1
Print Space(l - i);
For j = -i To i
Print Chr(n + i - Abs(j));
Next j
Print vbCrLf
Next i
End Sub

Answer 3

Dim i As Integer
Dim n As Integer
Dim s As String
For i = 0 To 5
s = ""
For n = 0 To i
s = s & Chr(65 + n)
Next n
For n = 0 To i - 1
s = s & Chr(64 + i - n)
Next n
Print Space(6 - i) & s
Next i本回答被提问者采纳