Пересчитать элементы вектора N размерности L по правилу

Private Sub Command1_Click()
Dim L  As Integer, i As Integer, N() As Single
L = InputBox("Ââåäèòå ðàçìåðíîñòü âåêòîðà L")
ReDim N(1 To L)
For i = 1 To L
N(i) = InputBox("Ââåäèòå ýëåìåíòû ìàññèâà ")
Next
For i = 1 To L
N(i) = (N(i - 1) + N(i + 1)) / 2
Next
For i = 1 To L
Print N(i)
Next
End Sub

Private Sub Command1_Click()
Dim L  As Integer, i As Integer, N() As Single
L = InputBox("Ââåäèòå ðàçìåðíîñòü âåêòîðà L")
ReDim N(1 To L)
For i = 2 To L
N(i) = InputBox("Ââåäèòå ýëåìåíòû ìàññèâà ")
Next
For i = 2 To L
N(i) = (N(i - 1) + N(i + 1)) / 2
Next
For i = 2 To L
Print N(i)
Next
End Sub

Private Sub Command1_Click()
Dim N() As Single
Dim L As Integer
Dim i As Integer
L = InputBox("Введите L")
ReDim N(1 To L)
Print "Do"
Print "N={";
For i = 1 To L
N(i) = InputBox("Введите N")
Print N(i) & ",";
Next
Print "}"
Print
Print "Posle"
Print "P={";
For i = 5 To L
N(i) = (N(i - 1) + N(i + 1)) / 2
Print N(i) & ",";
Next
Print "}"
End Sub

Private Sub Комманда1_Click()
Dim N() As Single
Dim R() As Single
Dim L As Integer
Dim i As Integer
Randomize
L = InputBox("Введите количество элементов", "Ввод данных", 10)
ReDim N(1 To L)
ReDim R(1 To L)
Print "Do"
Print "N={";
For i = 1 To L
    N(i) = InputBox("Введите элемент № " & i, "Ввод данных", Int(5 * Rnd + 5) * 4)
    Print N(i) & ",";
Next
Print "}"
Print
Print "Posle"
Print "P={";
For i = 2 To L - 1
    R(i) = (N(i - 1) + N(i + 1)) / 2
    Print R(i) & ";";
Next
Print "}"
End Sub