VB程序设计：用单循环实现如下所示的界面

Private Sub Command1_Click()
Dim str As String, j As Integer

For i = 65 To 74
str = String((74 - i) * 2, Chr(i))
Print Space(j) & str
j = j + 1
Next
End Sub

Private Sub Form_Load()
j = 0
End Sub

加一个按钮。

Option Explicit: Dim y As Integer, O As String * 18, P As String * 16, Q As String * 14, R As String * 12, S As String * 10, T As String * 8, U As String * 6, V As String * 4, W As String * 2

Private Sub Command1_Click()
O = "AAAAAAAAAAAAAAAAAA"
P = "BBBBBBBBBBBBBBBB"
Q = "CCCCCCCCCCCCCC"
R = "DDDDDDDDDDDD"
S = "EEEEEEEEEE"
T = "FFFFFFFF"
U = "GGGGGG"
V = "HHHH"
W = "II"
For y = 1 To 9
If y = 1 Then Print O
If y = 2 Then Print P
If y = 3 Then Print Q
If y = 4 Then Print R
If y = 5 Then Print S
If y = 6 Then Print T
If y = 7