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

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

Всем привет! Первый раз на таком форуме! Начал интересоваться программированием (подтолкнула учеба) и в целом прогресс есть, но много еще непонятного. Помогите,пожалуйста найти сумму максимальных значений массива! Все что я сам смог сделать это построил двумерный массив где N=6 (количество строк) M=8 (количество столбцов). Границы значений элементов массива от "-20" до "30". нашел само максимальное число, даже нашел их индексы и тем самым можно посмотреть сколько в каждом новом массиве максимальных членов. Но как посчитать сумму этих максимальных членов если их несколько не знаю, очень нуждаюсь в помощи более грамотных людей в этой области! вот мой код:

                    Листинг программы
                
 
                        
                          
                    
Dim am(50, 50) As Integer
Private Sub Command1_Click()
n = Val(Text1)
m = Val(Text2)
am_min = Val(Text3)
am_max = Val(Text4)
Picture1.Cls
Picture2.Cls
s = 0
For i = 0 To n - 1
For j = 0 To m - 1
am(i, j) = am_min + Int(Rnd * (am_max - am_min))
stra = stra + Str(am(i, j))
Next
List1.AddItem stra
stra = ""
Next
List1.AddItem " "
Max = Abs(am(1, 1))
For i = 0 To n - 1
For j = 0 To m - 1
If am(i, j) < 0 Then s = s + 1
If Abs(am(i, j)) > Max Then Max = Abs(am(i, j))
Next
Next
Picture1.Print s
For i = 0 To n - 1
For j = 0 To m - 1
If am(i, j) = Max Then
List2.AddItem "am(" + Str(i + 1) + "," + Str(j + 1) + ")"
am(i, j) = f
End If
Next
Next
List2.AddItem ""
stra = ""
Picture2.Print Max
End Sub

скриншот того что получается у меня при нажатии на кнопку Вычислить один раз! Буду очень признателен!

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim am(50, 50) As Integer
Private Sub Command1_Click()
n = Val(Text1)
m = Val(Text2)
am_min = Val(Text3)
am_max = Val(Text4)
Picture1.Cls
Picture2.Cls
s = 0
u = 0
For i = 0 To n - 1
For j = 0 To m - 1
am(i, j) = am_min + Int(Rnd * (am_max - am_min))
stra = stra + Str(am(i, j))
Next
List1.AddItem stra
stra = ""
Next
List1.AddItem " "
Max = Abs(am(1, 1))
For i = 0 To n - 1
For j = 0 To m - 1
If am(i, j) < 0 Then s = s + 1
If Abs(am(i, j)) > Max Then Max = Abs(am(i, j))
Next
Next
For i = 0 To n - 1
For j = 0 To m - 1
If am(i, j) = Max Then u = u + 1
Next
Next
Picture2.Print u * Max
Picture1.Print s
End Sub