Функции пользователя используются так же, как и встроенные функции Visual Basic. То есть, они используются в выражениях справа от знака равно, могут включаться также в оператор Print:
< имя переменной > = ИмяФункции (аргумент 1 [, аргумент 2, …])
Print ИмяФункции
Внутри функции можно объявлять локальные переменные, указывая их тип. Переменные уровня формы доступны всем функциям, подключенным к данному модулю или форме. Преждевременный выход из функции осуществляется с помощью оператора Exit Function.
Подключение пользовательских функций и процедур к текущей форме осуществляется следующим образом:
- открыть окно Программы (Code);
- выбрать пункт меню Tools, Add Procedure;
- указать в диалоговом окне имя функции;
- установить переключатель Function;
- щелкнуть по кн. OK.
Пример: Вычислить значение y=x2+f1(x), где f1(x) – это функция пользователя: f1(x)=Sin(x+1).
Вычисление f1(x) оформим в виде функции пользователя. Входным параметром функции будет целое число одинарной длины x – переменная. Функция возвращает вещественное число.
Public Function F_1(x As Integer) As Single
F_1=sin(x+1)
End Function
----------------------------------------------------------
Private Sub CommandButton_Click()
Dim x As Integer, F_1 As Single, Y As Single
x = Val(InputBox("Аргумент X"))
Y=x^2+ F_1(x)
Print Str$(Y)
End Sub
Работа с одномерными массивами.
Программный код для ввода и вывода одномерного массива.
Нахождение минимального и максимального элементов массива.
Работа с массивом элементов управления.
Массив элементов управления представляет собой группу элементов управления одного типа, имеющих одно и то же имя и отличающихся индексом. Обычно его создают на этапе разработки программы. В большинстве случаев для этого достаточно создать массив из одного элемента следующим образом:
1) пометить элемент управления в форму;
2) задать свойство Name;
3) свойству Index присвоить значение 0.
Для добавления элемента управления во время выполнения программы используются методы Load и Add. Метод Load позволяет добавлять элементы управления к существующему элементу управления, метод Add позволяет не только добавлять новые элементы управления, но и создавать новые элементы. Синтаксис метода Load: Load <имя_элемента управления(индекс)>, где индекс – номер загружаемого элемента. Для вновь созданного элемента управления свойство Visible установлено равным False, свойства Top и Left имеют такие же значения, что и у оригинального элемента управления.
Например, для создания 10 элементов управления Label может использоваться следующую программу:
for i=1 to 10
Load Label(i)
Label(i).Visible=True
Label(i).Top=Label(i-1).Top+Label(i-1).Height
next i
Доступ к конкретному элементу управления в массиве производится по его имени и индексу, например, Label (5).Caption=”Результат вычислений”.
Удаление элементов массива элементов управления осуществляется оператором Unload: Unload объект(Index).
Нельзя удалять исходный (нулевой) элемент массива, так как после этого его нельзя будет восстановить программным путем.
Метод Count – подсчитывает количество элементов управления.