Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Функции – это подпрограммы, в результате которой вычисляется только одно значение, которое присваивается имени функции. Обращение к функции можно использовать в правой части операторов или различных выражений, то есть там, где используются переменные соответствующего типа. В общем виде блок типа Function имеет следующий вид:
Function Имя функции ([Список формальных параметров]) AsТип возвращаемого функцией значения Описание локальных переменных Операторы тела процедуры End Function |
В разделе Список формальных параметров через запятую перечисляются формальные параметры функции (если они есть) желательно с указанием типа (хотя этого можно и не делать, в этом случае они рассматриваются как переменные типа Variant).
В разделе операторов тела функции должен обязательно присутствовать, по крайней мере, один оператор вида:
Имя функции=Вычисленное значение,
в котором вычисленное значение присваивается переменной, совпадающей с именем функции. В точку вызова возвращается результат последнего такого присваивания. Если такого оператора нет, то возвращенное значение функции будет не определено.
При вызове функции также как и при вызове процедуры формальные параметры заменяются фактическими в порядке их следования. Между фактическими и формальными параметрами, объявленными в заголовке функции, должно быть соответствие по их количеству, типу данных и последовательности расположения.
Обращение к функции пользователя аналогичено вызову встроенных функций VB: осуществляется в основной программе путем задания имени функции и списка фактических параметров того же типа и количества, что и формальные. Например, функцию
FunctionTangens(x)as double Tangens=sin(x)/cos(x) End Function |
можно вызвать s=Tangens(1) или Print Tangens(5*x).
Пример. Вычислить число сочетаний из n по m:С=m!n!/(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 |
Такую программу можно вложить, например, в процедуру обработки какого-либо события на форме для получения результата.
Пример. Программа вычисления площади четырехгранника, если даны длины его ребер с использованием подпрограммы-функции.
Дата публикования: 2014-12-28; Прочитано: 168 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!