4 задачи VBA,Я отблагодарю

[balbesstudent]

1)целочисленная арифметика:
Сколько совершенных чисел в диапозоне [a;b]
2)одномерные массивы:
Все элементы целочисленного вектора размерности N с нечетными значениями умножить на 2.
3)двумерные массивы:
Найти максимальный элемент вещественной матрицы и указать его координаты.
4)обработка строк:
Вывести слово с номером K заданного предложения, считая с конца предложения.
За решение задач я отблагодарю ,честно)))спс заранее!

[stck]

1ая:
a,b,c1,c2,s - single
код:

For c1 = a To b
For c2 = 1 To c1 - 1
If c1 Mod c2 = 0 Then s = s + c2
Next
If c1 = s Then
Label = Label & c1&"="
End If
s = 0
Next