Найти N элементов одномерного массива - VB

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

Вот не пойму смысл этой задачки по одномерным массивам: 1. Найти N элементов одномерного массива X1=X2=X3=1; Xk=X(k-1)+X(k-2)-1/K А здесь где-то ошибка: 2. Поменять местами симметрично элементы верхней четверти и нижней четверти матрицы А(5х5), разделенной диагоналями на четыре части

Sub n4()
Dim i, j, S, A(5, 5), B(5, 5), C(5, 5) As Integer
For i = 1 To 5
For j = i To 5 - i + 1
A(i, j) = Cells(i, j)
Next
Next
For i = 1 To 5
For j = 5 - i + 1 To i
B(i, j) = Cells(i, j)
Next
Next
For i = 1 To 5
For j = 1 To 5
C(i, j) = A(i, j)
A(i, j) = B(i, j)
B(i, j) = C(i, j)
Next
Next
For i = 1 To 5
For j = i To 5 - i + 1
Cells(i, j) = A(i, j)
Next
Next
For i = 1 To 5
For j = 5 - i + 1 To i
Cells(i, j) = B(i, j)
Next
Next
End Sub

Решение задачи: «Найти N элементов одномерного массива»

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

                            Dim i%, S!, n%, x2!, x3!, x!
n = Val(InputBox("n-?  /n>3/"))
If n > 3 Then
x2 = 1: x3 = 1: S = 3
For i = 4 To n
x = x3 + x2 - 1 / i
  S = S + x
    x2 = x3: x3 = x4
Next i
MsgBox "S(" & n & ")=" & S
Else
MsgBox "n>3 !"
End If
                        