Сформировать вектор, каждая компонента которого вычисляется по формуле

For i=1 to N 'повсем элементам матрицы
  c(i) = iif(a(i)>b(i), a(i), b(i)) 'если значение из А больше чем из Б то в С пихаем из А иначе из Б
Next i

Stroka = "посадил дед печень выросла внучка большая яичко упало и разбилось"
bukva = "п" 'первая буква
arr = Split(" " & Stroka, " " & bukva) 'разбиваем предложение в массив используя в качетсве разделителя " п"
otvet = UBound(arr) 'кол-во элементов массива минус один и будет кол-во слов (т.к. массив с нуля то 1 не отнимаем)

Sub fib()
Dim n, m As Integer
Dim F() As Variant
n = InputBox("Введите n>=3")
m = InputBox("Введите m>=3")
a = n + m + 1
ReDim F(1 To a) As Variant
F(1) = 1
F(2) = 2
For i = 3 To n + m + 1
F(i) = F(i - 1) + F(i - 2)
Next i
If F(n) * F(m) + F(n + 1) * F(m + 1) = F(n + m + 1) Then
MsgBox ("Для n=" & n & " ,m=" & m & " утверждение FnFm + Fn+1 Fm+1= Fn+m+1 верно")
Else: MsgBox ("Для n=" & n & " ,m=" & m & " утверждение FnFm + Fn+1 Fm+1= Fn+m+1 НЕ верно")
End If
End Sub

Sub fib()
Dim n, m As Integer
Dim F() As Variant
n = InputBox("Введите n>=3") 'Инпут бокс для введения n
m = InputBox("Введите m>=3") 'Инпут бокс для введения m
'числа фиббоначи все включая число Fn+m+1 внесем в массив
a = n + m + 1 
ReDim F(1 To a) As Variant 'Определяем размер массива
F(1) = 1
F(2) = 1 ' упс очепятка Исправлено)
'Цикл для нахождения чисел фиббоначи, и вносим их в массив
For i = 3 To n + m + 1 
F(i) = F(i - 1) + F(i - 2)
Next i
'Проверка необходимого утверждения с выводом соответствующего сообщения
If F(n) * F(m) + F(n + 1) * F(m + 1) = F(n + m + 1) Then
MsgBox ("Для n=" & n & " ,m=" & m & " утверждение FnFm + Fn+1 Fm+1= Fn+m+1 верно")
Else: MsgBox ("Для n=" & n & " ,m=" & m & " утверждение FnFm + Fn+1 Fm+1= Fn+m+1 НЕ верно")
End If
End Sub

Sub asd() 'матрица находится в книге на листе1, начиная с ячейки А1
n = InputBox("введите n - число строк")
m = InputBox("введите m - число столбцов")
For i = 2 To n
For j = m - i + 2 To m
If Cells(i, j) < 0 Then
Cells(i, j) = 0
End If
Next j
Next i
End Sub

Stroka = "посадил дед печень выросла внучка большая яичко упало и разбилось"
bukva = "п" 'первая буква
arr = Split(" " & Stroka, " " & bukva) 'разбиваем предложение в массив используя в качетсве разделителя " п"
otvet = UBound(arr) 'кол-во элементов массива минус один и будет кол-во слов (т.к. массив с нуля то 1 не отнимаем)

Sub zadacha()
Dim arr As Variant
Dim Stroka, Bukva As String
Dim otvet, i As Integer
Stroka = InputBox("Введите предложение")
Bukva = InputBox("Введите букву")
arr = Split(Stroka, " ") 'разбиваем предложение в массив слов используя в качетсве разделителя " "
otvet = 0
For i = 0 To UBound(arr)
If Left(arr(i), 1) = Bukva Then
otvet = otvet + 1
End If
Next i
MsgBox (otvet)
End Sub

Sub Zadacha2() 'вектора записаны в колонках А  В начиная с первой ячейки, результат пишется в колонку С
n = InputBox("Введите размерность векторов")
For i = 1 To n
If Cells(i, 1).Value < Cells(i, 2).Value Then
Cells(i, 3).Value = Cells(i, 2).Value
Else
Cells(i, 3).Value = Cells(i, 1).Value
End If
Next i
End Sub

n1 = 4
n2 = 5
n3 = 6
n4 = 7
summa = -(n1 > 5) * n1 - (n2 > 5) * n2 - (n3 > 5) * n3 - (n4 > 5) * n4

massa=0
for i=1 to 12
  mass = massa + A(i)
next i
msgbox massa

Sub fib()
Dim n, m As Integer ' определение переменных типа интеджер
Dim F() As Variant 'определение переменной как массива произвольного типа и размерности, не знаю как точнее это описать)
n = InputBox("Введите n>=3") ' ввод пользователем значения n
m = InputBox("Введите m>=3") ' ввод пользователем значения m
a = n + m + 1 ' определение размерности массива
ReDim F(1 To a) As Variant ' переопределение размерности массива
F(1) = 1 ' ввод первого значения массива
F(2) = 1 ' ввод второго значения массива
For i = 3 To n + m + 1 'цикл заполнения массива с третьего элемента до n+m+1 - го
F(i) = F(i - 1) + F(i - 2) ' само заполнение элементов массива
Next i ' счетчик цикла, увеличивает i на 1 после каждого шага цикла
If F(n) * F(m) + F(n + 1) * F(m + 1) = F(n + m + 1) Then ' проверка искомого условия
MsgBox ("Для n=" & n & " ,m=" & m & " утверждение FnFm + Fn+1 Fm+1= Fn+m+1 верно") ' вывод сообщения о том что условие верное
Else: MsgBox ("Для n=" & n & " ,m=" & m & " утверждение FnFm + Fn+1 Fm+1= Fn+m+1 НЕ верно") ' вывод сообщения о том что условие не верное
End If 'конец условного оператора
End Sub