Найти сумму элементов каждого столбца - VB

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

Задача: Найти сумму элементов каждого столбца

На строке

For i = 0 To 4

появляется ошибка: "Compile error:For control variable already in use"

For i = 0 To 4
Mas(i, 0) = 0
For j = 0 To 6
Mas(i, 0) = Mas(i, 0) + Mas(i, j)
 Next
 'Вывод массива
For i = 0 To 4
For j = 0 To 6
Picture6.Print Mas(i, j); " ";
Next j
Picture6.Print
Next i

Решение задачи: «Найти сумму элементов каждого столбца»

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

                            For i = 0 To 4
Mas(i, 0) = 0
For j = 0 To 6
Mas(i, 0) = Mas(i, 0) + Mas(i, j)
 Next j: Next i
 'Вывод массива
For i = 0 To 4
For j = 0 To 6
Picture6.Print Mas(i, j); " ";
Next j
Picture6.Print
Next i
                        

Оцени полезность:

14 голосов , оценка 4.214 из 5

Похожие ответы