程序为：Private Sub Form_Click()Dim aa = Array(1, 2, 3, 4, 5, 6, 7)For I = LBound(a) To

程序为：Private Sub Form_Click（)Dim aa = Array（1, 2, 3, 4, 5, 6, 7)For I = LBound（a) To

程序为：

Private Sub Form_Click()

Dim a

a = Array(1, 2, 3, 4, 5, 6, 7)

For I = LBound(a) To UBound(a)

a(I) = a(I) * a(I)

Print a(I)

Next I

End Sub

程序运行后，单击窗体后，在窗体显示的结果是：