Private Sub Command1_Click()
Label1.Caption = ""
Dim a(100, 100) As Integer
Dim m, n As Integer
    n = Val(InputBox("Введите размернсть массивов (не более 10)", "Длина"))
    m = Val(InputBox("Введите количество массивов (не более 10)", "Количество"))
    
    For i = 1 To m
        For j = 1 To n
            a(i, j) = Val(InputBox("Введите число", "Ввод данных в массив"))
    Next j, i
    
    For i = 1 To m
            Label1.Caption = Label1.Caption & Chr(13)
    For j = 1 To n
            Label1.Caption = Label1.Caption & "  " & a(i, j)
    Next j, i
End Sub
Private Sub Command3_Click()
    Label1.Caption = ""
    Label2.Caption = ""
End Sub
Private Sub Command4_Click()
End
End Sub

Private Sub srm(m, n, a)
    Dim s As Integer
    For i = 1 To m
      For j = 1 To n
        If Max < a(i, j) Then Max = a(i, j)
    Next j
        s = s + Max
    Next i
End Sub

Private Sub Command2_Click()
Call srm(m, n, a)
End Sub

For j = 1 To n

Max = a(i, 1)

text1.text = s, label1.caption = s, msgbox s