Question

用VB制作这样一个打印字母金字塔图的程序

Answer 1

Private Sub Form_Click()
For i = 1 To 9
s = ""
If i < 6 Then
For j = 1 To 2 * i - 1
s = s & Chr(64 + i)
Next j
Print Space(10 - i) & s
Else
For j = 1 To 18 - 2 * i + 1
s = s & Chr(64 + 10 - i)
Next j
Print Space(i) & s
End If
Next i
End Sub

Answer 2

请问打印如下图形你会吗？而且你要知道其原理？
*
***
*****
*******
*********