Найти сумму максимальных по строкам элементов массива - VB

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

Private Sub Command2_Click()
n = Val(Text1)
m = Val(Text2)
l = Val(Text4)
Max = MSFlexGrid1.TextMatrix(1, 1)
v = 0
For k = 1 To n
   For i = 1 To m
     If MSFlexGrid1.TextMatrix(k, i) > Max Then Max = MSFlexGrid1.TextMatrix(k, i)
   Next i
Next k
For k = 1 To n
   For i = 1 To m
      v = v + 1
      If v = l Then o = Max - v
   Next i
Next k
Picture2.Print o
End Sub

Решение задачи: «Найти сумму максимальных по строкам элементов массива»

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

                            v = 0
For k = 1 To n
Max = MSFlexGrid1.TextMatrix(k, 1)
   For i = 1 To m
     If MSFlexGrid1.TextMatrix(k, i) > Max Then Max = MSFlexGrid1.TextMatrix(k, i)
   Next i
   v = v + Max
Next k
 
MsgBox v
                        

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

7 голосов , оценка 4.143 из 5

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