Програмирование на Visual Basic
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
?равления или формы (в последних дйух случаях тип принимает значения Control и Form).
Тип может быть Byte, Boolean, Integer, Long, Currency, Single, Double, Date, String (только переменной длины). Variant, пользовательский тип или Control и Form. As тип необходимо применять для каждого аргумента.
Список аргументов определяет связь по данным между вызывающей (функция, из которой происходит вызов) и вызываемой (функция, которая вызывается) процедурами или функциями. Локальные данные, определенные внутри функции (кроме тех, что определены в списке general для форм), не могут использоваться в других процедурах и.функциях (например, переменные с одинаковыми именами, но объявленные в разных функциях, хранятся в разных ячейках памяти и изменение переменной в одной из функций не ведет к изменению одноименной переменной и другой функции).
Exit Function вызывает прекращение выполнения функции ц выход из нее в вызывающую программу.
Функция не может быть определена внутри какой-либо процедуры или функции.
Пример функции вычисления площади прямоугольника по заданным значениям сторон:
Function FunDemo (RLen, Rwid) As Single
заголовок функции FunDemo с “двумя аргументами- Rlen-длина и Rwid-ширина
“тип имени функции определен как Single Dim Area объявление локальной
переменной Area = RLen * Rwid расчет площади MsgBox “Площадь равна” & Area печать
результата. FunDemo = Area имени функции
присваивается вычисленное значение End Function
Пример функции для вычисления среднего значения элементов одномерного массива:
Function FunSumVecior (A( )} As Single,
MaxI As Integer) As Single
Dim SumVector As Single, I As Integer
Surn Vector = 0
For 1=1 To MaxI верхняя граница индекса I определяетсяпередаваемым аргументом процедуры
SumVector =SwnVector + A(I)
Next I
FunSuni Vector = SumVector/MaxI имени
функции присваивается вычисленное значение End Function
Изменяя значения аргументов данную функцию можно использовать для работы с вектором произвольного размера.
Используемые ключевые слова аналогичны рассмотренным выше для процедур.
Приведем примеры заголовков функций с использованием параметров ParamArray и Optional:
Function (.ilcSur-i (ByVa;: FirstArg As Integer, par^Array OtnerArqri;;^
Function MyFunc.My^tr As String, Optional MyArgI, Opt--^1”1”-1 MyArg2 )
Обращение к функции является операндом выражения (т.е. в отличии от процедуры для ее вызова не используется специальный оператор), имеет следующий синтаксис
имя функци11([список значений})
список значении - список значений аргументов (соответствует списку аргументов в операторе Function по количеству, порядку следования и типу. если не используется параметр Optional). Кроме того должно выполняться следующее соответствие между списками аргументов и значениями:
Пример 1.
Function Sum(A AsInteger, BAs Integer)As I n t e g e r
список аргументов состоит из переменных С - А + В Sum = С Knd Function Sub Form_Click ; ) italic X(3) As Integer X<1) - 1 X(2) - 2 X(3) = Sum(X(l), X(1) - X(2))список значений
включает элементы мас,”ЛЕ^а и выражение Print Х(1) , Х(2), Х(3) End Sub Пример 2. .
Function Sum(A AsInteger/ ВAs Integer)ftg Integer
список -аргументов состоит из переменных С = А + В Sum = С End Function Sub Forrn_Click () Dim X, Z As Integer X = 5 Z = Sum (X, 4) список значений включает
переменную и константу Print X, Z End Sub
- Пример 3.
Function Sum (A ( ) As Integer) As Integer список аргументов включает массив
А(3) = А(1) + А(2)
SumА(3)
End Function
Sub Form_Click ()
Static X(3) As Integer
X(1) = 1
X(2) - 2
X.(3 ) = Sum (X() ,)список значений включает массив
Print Х(1), Х(2) , Х(3)
End Sub
Для рассмотренных примеров заголовков функций с параметрами ParamArray и Optional обращения к функциям могут иметь следующий вид:
ReturnValue = CalcSum(4, 3 ,2 ,1) первый аргумент функции FirstArg принимает значение 4, остальные аргументы являются элементами массива и принимают значения OtherArgs(l) = 3, OtherArgs(2) = 2, последнее значение определяет размерность массива (1).
RetVal = MyFunc(“Hollo”, 2, “World”) - В этом обращении заданы все три значения аргумента.
. RetVal = MyFunc (“Test”, , 5) в этом обращении не задано значение второго аргумента.
RetVal = MyFunc (МуАгд! :-- 7) - в этом обращении зада-но значение второго аргумента с использованием его имени.
Пример программы.
Поместим рассмотренную функцию для определения среднего значения элементов одномерного массива в раздел general (Ьормы и обращение к ней в процедуру обработки события щелчка мыши по форме (рис. 3.19). После запуска программы и щелчка мыши по форме распечатывается среднее значение суммы элементов массива Х (рис. 3.20).
3.6.3.Передача аргументов по ссылке и по значению
Передача значений аргументов при вызове процедуры или функции по ссылке означает, что передается адрес памяти, по которому хранится значение аргумента (т.е. вызываемая процедура или функция для работы с переданным по ссылке аргументом использует одну и ту же ячейку или область памяти, что и вызывающая процедура пли функция). При этом не выделяется дополнительная намять для работы с переданным аргументом в вызываемой программе. Изменение значения аргумента в вызываемой процедуре или в функции означает изменение значения и в вызывающей процедуре или в функции (используется одна и та же ячейка или область памяти).
Передача цо ссылке определена по умолчанию. Передача значении аргументов при вызове процедуры или функции по значению (чтобы определить этот способ передачи, в списке аргументов процедур и функции для передаваемого таким образом аргумента используется ключевое слово ByVal) означает.