Найти сумму элементов каждого столбца - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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