关于VB程序设计的题目

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 Then Print U
If y = 8 Then Print V
If y = 9 Then Print W
Next y
End Sub

1