编写VB程序，打印出下列图形A,ABC,ABCDE,ABCDEFG,ABCDE,ABC,A

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim i%, j%
For i = 1 To 7
For j = 1 To i
Print Chr(64 + j);
Next
Print " ";
Next

For i = 6 To 1 Step -1
For j = 1 To i Step 1
Print Chr(64 + j);
Next
Print " ";
Next
End Sub