Question

VB中输出下列图形

AAAAAAAA
BBBBBB
TTTT
HH

注意：每个字母都是居中的
是这样的吧
Private Sub Form_Activate()
Dim i%, j%, a$, b$
a = "ABTH"
For i = 1 To 4
Print Tab(i);
For j = 1 To 10 - i * 2
b = Mid(a, i, 1)
Print b;
Next j
Print
Next i
End Sub

Answer 1

你的可行,下面的用了space()和string()

Private Sub Form_Activate()
a = "ABTH"
For i = 1 To 4
Print Space(i) & String(10 - 2 * i, Mid(a, i, 1))
Next i
End Sub