程序为: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
程序运行后,单击窗体后,在窗体显示的结果是: