Переход к определенной строке массива

@Maxby · Регистрация: 06.10.2011

Author24 — интернет-сервис помощи студентам

Доброго времени суток. У меня есть код, который складывает n чисел в массиве и делит их на n.

Visual Basic

Sub m_1()
Dim Массив_1() As Variant
n = 30
ReDim Массив_1(n)
For i = 1 To n
    Массив_1(i) = Cells(i, 1)
    Cells(i, 3) = ""
Next i
Call m_2(30, 2, Массив_1())
 
 
End Sub
Sub m_2(n%, k%, m1() As Variant)
Dim Массив_2() As Variant
Dim i As Integer, j%, r%
Dim vСумма As Double
 r = 0
For i = 1 To n - k + 1 Step k
 vСумма = 0
    For j = i To i + k - 1
      vСумма = vСумма + m1(j)
    Next j
    
    ReDim Preserve Массив_2(r)
    Массив_2(r) = vСумма / k
     Cells(i + k - 1, 3) = Массив_2(r)
Next i
End Sub

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

Добавлено через 7 часов 5 минут
Извиняюсь за глупый вопрос. Сам разобрался.

	21.11.2011, 22:22