Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на BASIC / Visual Basic / Visual Basic 6.0 / БВГ / Лекция_Б_Бурков_Типы данных, константы и переменные и функции в VB6.doc
Скачиваний:
60
Добавлен:
02.05.2014
Размер:
217.09 Кб
Скачать
  1. Процедура с нулевым списком параметров должна очистить форму и установить размер выводимых на форму символов в 30 пунктов и тип символов курсив.

Процедура

Обращение к процедуре

Обращение к процедуре

Sub A1()

Cls

Font.size=30

Fontitalic=true

End sub

Private Sub Form_Load()

A1

Print “Пример процедуры”

End sub

Private Sub Form_click()

A1

Print “Привет”

End sub

Функции

В VB имеется большое количество системных и встроенных функций.

Функция пользователя – это именованный программный блок, который включает группу операторов, обеспечивающих вычисление одного значения. Функции Function можно использовать в правой части операторов или различных выражений также как ис­пользуются переменные соответствующего типа. В общем виде блок типа Function имеет следующий вид:

Function <Имя_функции> ([параметры]) as [Тип ]

[программный код функции]

Имя_функции = <Выражение>

End Function

В разделе “параметры” через запятую перечисляются формальные параметры функции (если есть) желательно с указанием типа (если этого не делать, то в этом случае они рассматриваются как переменные типа Variant). В программном коде функции обяза­тельно должна быть строка, (обычно последняя), в которой оператором присваивания за­дается конкретное выражение для вычисления значения переменной, совпадающей с име­нем функции.

Возвращаемое процедурой значение присваивается имени процедуры и может быть использовано в выражениях программного кода аналогично стандартным функциям Visual Basic.

При вызове функции ее параметры, указанные в скобках, называются фактиче­скими и передаются в процедуру для получения вычисляемого значения, возвращаемого в основную программу. В качестве фактических параметров могут использоваться массивы, арифметические выражения, переменные и константы. Между фактическими и формаль­ными параметрами, объявленными в заголовке функции, должно быть соответствие по их количеству, типу данных и последовательности расположения.

Вызов процедуры Function аналогичен вызову встроенных функций Visual Basic. На­пример, функцию

Function tangens(x) as Double

tangens=sin(x)/cos(x)

end Function

можно вызвать следующим образом:

s=tangens(1) или Print tangens(5*x)

Пример.

Вычислить выражение c=m!n!/(m+n)!

Процедура-функция для вычисления факториала

Использование функции

Function f(k as integer) as long

Dim I as integer

F=1

for I=1 to k

F=f*I

Next I

End function

Dim c as single

Dim n as integer

Dim m as integer

M=val(inputbox(“Введите M”))

N=val(inputbox(“Введите N”))

C=f(m)*f(n)/f(m+n)

Print “c=”;c

Такую программу можно вложить, например, в процедуру обработки какого-либо события на форме для получения результата.

17