Для безусловного перехода на желаемый оператор в программе на VBA используется оператор Goto, за которым указывается метка оператора, к которому требуется перейти. Метка указывается перед оператором. Между меткой и оператором указывается двоеточие.
Пример 1.12. Программа запрашивает у пользователя число и вычисляет его квадратный корень. Работа программы продолжается, пока не будет введено отрицательное число.
Sub primer1_12()
nachalo: x = InputBox("Введите число")
If x < 0 Then Goto konec
koren = Sqr(x)
MsgBox ("Корень равен " & koren)
Goto nachalo
konec: End Sub
Здесь nachalo и konec – метки.
Подпрограммы.
Во многих случаях удобно выделить часть программы в отдельную процедуру (подпрограмму) и вызывать ее для выполнения из другой процедуры. Подпрограмма может иметь входные и выходные параметры. Входные параметры – это величины, передаваемые в подпрограмму из другой (вызывающей) процедуры и являющиеся для вызываемой подпрограммы «исходными данными». Этими величинами могут быть как переменные, так и константы (например, конкретные числа). Выходные параметры – это переменные, являющиеся результатами выполнения вызываемой подпрограммы.
Пример 1.13. Требуется определять в заданной строке двумерного массива максимальный элемент этой строки, а также его номер. Поиск максимального элемента в строке требуется реализовать как подпрограмму.
Sub primer1_13()
Dim a() As Single
m = InputBox("Введите количество строк массива")
n = InputBox("Введите количество столбцов массива")
ReDim a (1 To m, 1 To n), asum(1 To n)
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox("a(" & i & "," & j & ")")
Next j
Next i
nomer_stroki = InputBox(“Укажите, в какой строке требуется найти максимум”)
Call poisk_max(a, n, nomer_stroki, max_elem, nomer_max_elem)
MsgBox(“Максимальный элемент “ & i & “-й строки равен “ & max_elem)
MsgBox(“Он находится в “ & nomer_max_elem & “-м столбце“)
End Sub
Sub poisk_max(massiv, kol_stolb, i, max, nom_max)
max=massiv(i,1): nom_max=1
For j=1 To kol_stolb
If massiv(i,j)>max Then
max = massiv(i,j)
nom_max = j
Next j
End Sub
Здесь подпрограмма primer1_13 является вызывающей (или основной) подпрограммой, а poisk_max – вызываемой подпрограммой. Таким образом, данная программа (в целом) состоит из двух подпрограмм. При ее запуске курсор должен находиться в пределах текста основной подпрограммы.
В начале основной подпрограммы выполняется ввод массива (с именем a). Вводится также переменная nomer_stroki – номер строки, в которой требуется найти максимальный элемент. Все действия, выполняемые при этом, рассмотрены ранее.
Оператор Call – вызов подпрограммы. В данном примере он имеет следующий вид:
Call poisk_max(a, n, nomer_stroki, max_elem, nomer_max_elem)
Здесь poisk_max – имя вызываемой подпрограммы. Переменные a, n и nomer_stroki – входные параметры, так как при вызове подпрограммы их значения уже заданы. Переменные max_elem и nomer_max_elem – выходные параметры, так как они должны быть определены в результате выполнения подпрограммы.
Следующая строка представляет собой заголовок подпрограммы:
Sub poisk_max(massiv, kol_stolb, i, max, nom_max)
Конечно, количество параметров в вызове подпрограммы (т.е. в операторе Call) и в ее заголовке должно совпадать, и порядок параметров в этих операторах должен соответствовать друг другу.
В данном примере при вызове подпрограммы poisk_max переменная massiv получает значение переменной a (т.е. значение массива, введенного в основной программе), переменная kol_stolb – значение n, переменная i – значение nomer_stroki. Переменные max и nom_max получают значения переменных max_elem и nomer_max_elem; так как этим переменным в основной программе не было присвоено никакого значения, они равны нулю.
Затем выполняется подпрограмма poisk_max. В результате ее выполнения определяются значения переменных max и nom_max. Эти же значения получают соответствующие переменные основной программы, в данном случае – переменные max_elem и nomer_max_elem.
По окончании выполнения подпрограммы происходит возврат в основную подпрограмму. Выполняется оператор, следующий за оператором Call. В данном случае это оператор MsgBox, выводящий результат на экран.
В качестве входных параметров могут использоваться не только переменные, но и константы. Пусть, например, в рассматриваемой задаче не требуется запрашивать у пользователя номер строки, в которой необходимо найти максимум; вместо этого задано, что необходимо найти максимум в третьей строке. Тогда вызов подпрограммы мог бы иметь следующий вид:
Call poisk_max(a, n, 3, max_elem, nomer_max_elem)
Никаких изменений в самой подпрограмме poisk_max при этом не требуется. При вызове подпрограммы переменная i получит значение 3. Все остальные действия выполняются точно так же, как описано выше.
Функции.
Функция, как и подпрограмма – это отдельная процедура, вызываемая из другой процедуры. Отличие функции от подпрограммы состоит в том, что в результате выполнения функции определяется значение одной переменной, в то время как подпрограмма может определять значения нескольких переменных.
Имя переменной, определяемой в результате выполнения функции, должно совпадать с именем самой функции.
Функция, как и подпрограмма, имеет входные параметры, т.е. величины, передаваемые в функцию из вызывающей процедуры. Этими величинами могут быть как переменные, так и константы.
Следует обратить внимание, что способы вызова подпрограммы и функции существенно различаются. Подпрограмма вызывается с помощью специального оператора Call. Функция обычно вызывается в правой части оператора присваивания.
Пример 1.13. Требуется разработать функцию для вычисления расстояния между двумя точками в пространстве любой размерности. Точки задаются координатами.
Sub primer1_13()
Dim a() As Single, b() As Single
n = InputBox("Введите размерность пространства")
ReDim a(1 To n), b(1 To n)
MsgBox ("Вводите координаты первой точки")
For i = 1 To n
a(i) = InputBox("Координата " & i & ": ")
Next i
MsgBox ("Вводите координаты второй точки")
For i = 1 To n
b(i) = InputBox("Координата " & i & ": ")
Next i
d = rasst(a, b, n)
MsgBox ("Расстояние равно " & d)
End Sub
Function rasst(x, y, razmernost)
rasst = 0
For i = 1 To razmernost
rasst = rasst + (x(i) - y(i)) ^ 2
Next i
rasst = Sqr(rasst)
End Function
Здесь rasst – функция. Она вызывается в операторе d = rasst(a, b, n). Таким образом, переменные a и b (массивы с координатами точек), а также переменная n (размерность пространства, т.е. количество координат у каждой точки) являются входными параметрами функции rasst. В самой функции rasst значения этих переменных присваиваются переменным x, y и razmernost соответственно. Функция вычисляет расстояние между точками. Результат присваивается переменной rasst. Следует обратить внимание, что имя этой переменной обязательно должно совпадать с именем самой функции (в данном случае – rasst). По окончании выполнения функции rasst выполняется возврат в основную программу: выполняется оператор, где была вызвана функция, т.е. оператор d = rasst(a, b, n). Таким образом, значение функции rasst присваивается переменной d. Затем эта переменная выводится на экран оператором MsgBox.
