Определить номер строки с наибольшей суммой элементов матрицы С - VB

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

Определить номер строки с наибольшей суммой элементов матрицы С размерности n*l. помогите написать код программыыы((

Код к задаче: «Определить номер строки с наибольшей суммой элементов матрицы С - VB»

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

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ