Обработка двумерных массивов

[Aleksandr2138]

В данной действительной матрице A(n,n) найти сумму элементов строки, в которой расположен минимальный элемент.Матрицу я брал 5 на 5

Dim a(), i, j, Amin, imin, s As Integer
a = Range("A1:E5")
For i = 1 To 5
  For j = 1 To 5
   If a(i, j) < Amin Then
        Amin = a(i, j)
        imin = i
   End If
 Next j
 Next i
For i = 1 To 5
   s = s + a(imin, j)
Next
  MsgBox s
End Sub

Но не понимаю в чем ошибка , выдает ошибку 'Runtime error '9': Subscript out of range

[Вадим Мошев]

Я хоть я в этом языке ничего не понимаю, но мне кажется, что проблема здесь у вас:

For i = 1 To 5
   s = s + a(imin, j)
Next

Вы крутите цикл по i, а в массив подставляете j. Опечатка?

[Serge_Bliznykov]

Сообщение от Aleksandr2138

For i = 1 To 5
   s = s + a(imin, j)

но и переменные надо иницилизировать перед использованием.

примерно так:

Sub t1()
Dim a(), i  As Integer, j  As Integer, Amin  As Integer, imin  As Integer, s As Integer
a = Range("A1:E5")
imin = 1
Amin = a(1, 1)
For i = 1 To 5
  For j = 1 To 5
   If a(i, j) < Amin Then
        Amin = a(i, j)
        imin = i
   End If
 Next j
 Next i
 s = 0
For j = 1 To 5
   s = s + a(imin, j)
Next
  MsgBox "строка с минимальным " & imin & " сумма = " & s
End Sub

[Aleksandr2138]

Спасибо