Найти максимальный элемент массива - VB

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

помогите написать программу по бэйсику на одномерные массивы: Дан массив содержащий 15 элементов, получить новый, каждый элемент которого - разность квадрата и основания соответствующего элемента исходного массива. в новом массиве найти максимум Результат распечатать в виде : Исход массив : новый массив : MAX : заранее спасибо

Решение задачи: «Найти максимальный элемент массива»

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

                            Sub task(A() as integer)
Dim B(1 to 15) As integer
     '::: Новый массив:
     for i%=1 to 15
         B(i%)=A(i%)*A(i%)-10
     next i%
     '::: Максимум
     Bmax%=B(1)
     For i%=2 to 15
          if B(i%) > Bmax% then BMax%=B(i%)
     next i%
     '::: Печать:
     Debug.print "Исходный массив:"
     for i%=1 to 15
         Debug.print "A(";i%;")=";A(i%)
     Next i%
     Debug.print "Новый массив:"
     for i%=1 to 15
         Debug.print "B(";i%;")=";B(i%)
     Next i%
     Debug.Print "MAX=";Bmax%
End sub
                        