for i:= 1 to n for j:= 1 to m
Подготовка подготовка
Внутреннего цикла внутреннего цикла
for j:= 1 to m for i:= 1 to n
Операторы операторы
Тела цикла тела цикла
next j next i
next i next j
Пример 7.3. Составить алгоритм и программу определения минимального элемента каждой строки двумерного массива А=aij i=1,2,3; j=1,2,3,4.
Алгоритм
Программа
Private Sub CommandButton1_Click()
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
Глава 8. Пользовательские процедуры типа Sub и Function в VBA
Подпрограммы
Под процедурой мы понимаем последовательность операций, которую нужно многократно повторять в различных местах приложения. При этом требуемый блок команд записывается в программе только один раз, после чего к нему можно обращаться из любой части программы. С таким блоком мы уже знакомы – это процедура типа Sub обработки события командной кнопки.