Цикл For-Next заменить на For-Each-Next

[Romahah]

Помогите, пожалуйста.

For i = 1 To kk
G(i) = M(i) * C(i) / S1 * 100
Mn(i) = Mneft * G(i) / 100
N(i) = Mn(i) / M(i)
Next i

как реализовать циклом for-each?

[Romahah]

хотя бы натолкните я студент, неайтишник , делаю лабу.

[VictorM]

как реализовать циклом for-each?

Управляющие структуры ... Циклы

[doober]

For Each...Next (оператор) - повторяет одну и ту же последовательность команд для каждого элемента
массива или коллекции

не получиться у вас,можно получить только один элемент массива

Три одновременно из разных массивов с одним индексом нет.

[EducatedFool]

Не знаю даже, чем вам помочь...
В вашем коде такую замену не произвести...

В общем случае делается это так:

меняется цикл

for i = 1 to kk
G(i)=5
next i

на цикл

for each v in G
v = 5
next v

Но в вашем случае это неприменимо

[Romahah]

а если поочередно каждый массив?

[Казанский]

For Each только считывает элементы массива в переменную, но не меняет массив. То есть переменной массива в цикле можно присвоить новое значение, элемент массива при этом не поменяется.
Однако, если массив состоит из объектов (на самом деле - из ссылок на объекты), переменная цикла получает ссылку на объект, и можно менять свойства объекта. Сам массив при этом не меняется.
См. пример с модулем класса (шаблоном объекта).

[Казанский]

Оказывается, массив переменной длины тоже можно объявить как "As New". При этом явное создание экземпляра класса не нужно, он будет создан при первом обращении:

Dim MyArr() As New Roma '...
'...
'инициализация массива и занесение начальных значений
For i = 1 To kk
'    Set MyArr(i) = New Roma 'явное создание экземпляра класса
    MyArr(i).M = i
    MyArr(i).C = i * 10
Next

Правда, будет работать немного медленнее, чем при явном создании экземпляра класса, потому что при каждом обращении к объекту будет проверка, существует ли он. Об этом у Пирсона написано, я проверял - это действительно так.