Программирование вложенных циклов - VB

Формулировка задачи:

Дано целое число N и набор из N вещественных чисел: A1, A2, …, AN. Вывести следующие числа: A1, (A2) в квадрате, …, (AN-1) в степени N-1, (AN) в степени N.

Решение задачи: «Программирование вложенных циклов»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Me.AutoRedraw = True
    Liss_Ксюша
End Sub
Sub Liss_Ксюша()
    'Дано целое число N и набор из N вещественных чисел: A1, A2, …, AN. Вывести следующие числа:
    'A1, (A2) в квадрате, …, (AN-1) в степени N-1, (AN) в степени N.
    Dim N As Long 'Дано целое число N
    N = InputBox("Введите N: ", , 5)
    ReDim A(1 To N) As Double 'и набор из N вещественных чисел (пока что весь в нулях)
    Dim I As Long, J As Long
    Randomize
    For I = 1 To N 'заполняем набор
      A(I) = Rnd * N 'случайными
      Print A(I), '(и покажем [Ctrl+G])
    Next I 'вещественными числами
    Print
     
    For I = 1 To N 'Вывести следующие числа:
      Print A(I) ^ I, 'A1, (A2) в квадрате, …, (AN-1) в степени N-1, (AN) в степени N.
    Next I
     
End Sub
                        