double arrow

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

End Function

End Sub

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

Пример 1:

Sub Call_Function()

Dim var1As 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 xAs 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)


Сейчас читают про: