Определить номер строки с наибольшей суммой элементов матрицы С - VB
Формулировка задачи:
Определить номер строки с наибольшей суммой элементов матрицы С размерности n*l.
помогите написать код программыыы((
Решение задачи: «Определить номер строки с наибольшей суммой элементов матрицы С»
textual
Листинг программы
Private Sub Command1_Click()
Dim n!, L!, max#, i_max!, summ#
n = InputBox("N", , 5)
L = InputBox("L", , 7)
ReDim mas(n - 1, L - 1)
max = -1000
t = ""
For i = 0 To n - 1
summ = 0
For j = 0 To L - 1
mas(i, j) = Fix(Rnd(1) * 20 - 5)
summ = summ + mas(i, j)
t = t & mas(i, j) & vbTab
Next
If summ > max Then max = summ: i_max = i
t = t & vbCrLf
Next
Text1 = t 'для text1 MultiLine должен быть true
MsgBox "Строка " & i_max & ", сумма " & max
End Sub