Одномерные массивы в VBA

[Katie]

Пожалуйста, помогите сделать задачку
Дан одномерный массив А(n), который состоит не менее, чем из 10 элеметов(больших за ноль, меньших за ноль, нулевых). Выходной массив получить, поменяв местами максимальный элемент массива с четвертым.Вывести оба массива - входной и выходной в Excel.
Буду благодарна

[Katie]

Нам на паре дали вот такую задачу:
Дан одномерный массив А(n). Выходной массив получить, поменяв местами первый и последние элементы.
вот так вот програмировали:
Private Sub CommandButton1_Click()
n=InputBox ("Vvedite kolichestvo n")
ReDim A(n)
For i=1 To n
A(i)=InputBox(Vvedite A("& и &"))
Next i
For i=1 To n
Cells (2,i).Value=A(i)
Next i
Cells(1,1)="Vhodnoj"
Cells(1,2)="Massiv"
Cells(3,1)="Vuhodnoj"
Cells (3,2)="Massiv"
Amax=A(1):Amin=A(1)
Nmax=1:Nmin=1
For i=2 To n
If Amax<A(i) Then Amax=A(i):Nmax=i
If Amin>A(i) Then Amin=A(i):Nmin=i
Next i
A(Nmax)=Amin
A(Nmin)=Amax
For i=1 To n
Cells(4,i).Value=A(i)
Next i
End Sub


Преподаватель сказала, что здесь чтото нужно заменить, чтобы сделать то условие, которое у меня в первом сообщении.
Помогите пожалуйста

[psycho-coder]

Поиск максимального элемента

Dim Max as Integer
ReDim A(n)
for i = 1 to n
  if A(i) > Max then Max = A(i)
' замена максимального на 4-й эл.
  A(4) = Max

P.S. Синтаксис точный уже не помню, поэтому сильно не бей.
P.P.S. Дальше думаю сама допишешь куда нужно

[Katie]

Спасибо большое!!!Сейчас попробую!=)