Visual Basic

[asd48]

Нужно заполнить заполнить вектор H суммами значений каждых трёх элементов одномерного массива F в порядке их расположения. Размерность массива произвольная.
Вот код:
Private Sub Command1_Click()
Dim m As Integer
Dim F() As Integer, E() As Integer

Dim i As Integer, j As Integer
m = InputBox("Введите размерность", "размерность")
ReDim F(m)
ReDim E(m / 3)
For i = 0 To m
F(i) = InputBox("f" & i)
Next
Print "исходная матрица"
For i = 0 To m
Print F(i); " ";
Next

j = 0
For i = 0 To m Step 3
E(j) = F(i) + F(i + 1) + F(i + 2)
j = j + 1

Next
Print ""
Print "Новая матрица"

For i = 0 To j - 1
Print E(i); " ";
Next

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

[Blade]

Какой нафиг бейсик? Вы название раздела видели?