Значение строк программы (пример 1)

End Function

End Sub

Примеры на использование обращений к функции и процедуре

Пример 1:

Sub Call_Function()

Dim var1 As Integer

Dim var2 As Integer

Dim var3 As Integer

var1 = 5

var2 = 10

var3 = Multiply(var1,var2)

MsgBox (var3)

________________________________________________

Function Multiply(ByVal var1 As Integer, ByVal var2 As Integer)

Multiply = var1 * var2

Таблица 3

Строка программы	Назначение строки программы
Sub Call_Function()	начало процедуры с указанием имени процедуры
Dim var1As Integer Dim var2 As Integer Dim var3 As Integer	блок описания (представляется переменная с именем var1 и указывается тип переменной var1 как целочисленный)
var1 = 5 var2 = 10	блок ввода (присваивается переменной var1 значение 5)
var3 = Multiply(var1, var2)	переменной по имени var3 присваивается значение. Причем это значение появляется в результате вызова функции Multiply и передачи ей значений переменных var1, var2, равных соответственно 5 и 10
MsgBox (var3)	оператор вывода (вызывается окно сообщений, где представляется значение переменной var3)
End Sub	конец процедуры
___________________________	граница между процедурой и функцией одного модуля
Function Multiply(ByVal var1 As Integer, ByVal var2 As Integer)	начало функции с указанием имени функции (Multiply), в скобках указывается способ передачи значений переменных (ByVal – по значению, имя переменной – var1, тип переменной – As Integer; подобным образом, через запятую, указывается информацию о другой переменной – var2)
Multiply = var1 * var2	Результат умножения значений переменных var1 на var2 является значением функции. Внимание: имя функции и имя объекта, куда записывается расчетное значение функции – одинаковое.
End Function	Конец функции

Пример 2:

Sub DDDD()

Dim x As Double

Dim y As Double

Dim z As Double

x = 1.1

y = 2.2

MsgBox (x)

MsgBox (y)

TTTT x,y

вызываем процедуру по имени ТТТТ и передаем значения переменных x и y

MsgBox (y)

MsgBox (x)

z= FFF(x)

MsgBox (z)