Private Sub CommandButton1_Click(). Dim a(1 To 3, 1 To 4), min As Single, i, j As Integer

Dim a(1 To 3, 1 To 4), min As Single, i, j As Integer

For i = 1 To 3 ' Организация цикла для ввода массива по строкам

For j = 1 To 4

a(i, j) = Val(InputBox(" Введите a(" & i & ", " & j & ")" & "элемент массива "))

Next j ' Конец области действия внутреннего цикла

Next i ' Конец области действия внешнего цикла

For i = 1 To 3 ' Организация цикла для обработки массива по строкам

min = a(i, 1) ' Присвоение первого элемента каждой строки переменной min

For j = 1 To 4

If min > a(i, j) Then min = a(i, j) ' Определение минимального элемента

Next j ' Конец области действия внутреннего цикла

Debug.Print " Строка "; i; "min= "; min

Next i ' Конец области действия внешнего цикла

End Sub

Глава 17. Пользовательские процедуры типа Sub и Function в VBA

Подпрограммы

Под процедурой мы понимаем последовательность операций, которую нужно многократно повторять в различных местах приложения. При этом требуемый блок команд записывается в программе только один раз, после чего к нему можно обращаться из любой части программы. С таким блоком мы уже знакомы – это процедура типа Sub обработки события командной кнопки.

Private Sub commandButton_click ()