vb字母等腰三角形

Private Sub Form_Load()
Me.AutoRedraw = True
Dim i%, j%
For i = 1 To 5
For j = 1 To i
Print Chr(64 + i);
Next
Print
Next
End Sub

for 循环加
print tab 语句

简单两个for循环

书上有，照着写吧