Private Sub Command1_Click()
Dim n As Integer, m As Integer
n = InputBox("введите кол-во строк")
m = InputBox("введите кол-во столбцов")
ReDim a(1 To n, 1 To m) As Long
Dim i As Long
Dim j As Long
Dim sum As Long
Dim min As Long
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("элемент" & j & "строки" & i & "столбца")
Next j
Next i
min = 32000
For i = 1 To n
sum = 0
For j = 1 To m
sum = sum + a(i, j)
Next j
If sum < min Then
min = sum
st = i
End If