Private Sub Command1_Click()Dim a(9) As IntegerDim i As IntegerFor i = 0 To 9a(i) = i ^ 2Print a(i);NextPrintEnd Sub