Практическая работа 11. Создание функции

Date: 2015-10-07; view: 426.

Процедура Function

Особенностью процедур Function является то, что результатом их работы является возвращаемое значение. При создании процедуры Function используется инструкция Function и в конце - инструкция End Function. Функция может получать аргументы, передаваемые ей вызывающей процедурой. Если аргументов нет, то скобки пусты. При использовании аргумента должен указываться соответствующий тип данных. За скобками указывается тип возвращаемого значения.

Вызов функции реализуется в соответствии с синтаксисом:

Возвращаемое_значение = Имя_функци(Аргумент_1, : Аргумент_к); пример:

х1 = Func1(20, 30)

Здесь вызывается функция Func1, в передаются значения 20, 30. Возвращаемое значение присваивается переменной х1.

Создадим функцию вычисления факториала числа ( Factor ), используем тип вводимых данных - Integer, возвращаемых -Double, тогда максимальное возвращаемое значение ограничивается числом 1.80Е308. Примем факториал равным нулю, еслизначение аргумента превышает 170 (факториал 170 соответствует максимальному значению принятого типа данных). Последовательность действий:

1. Создать текстовые поля: txtInp - для ввода числа, факториал которого нужно вычислить, txtOut - для вывода результата и командную кнопку, рис. 2.2.,

2. для создания функции использовать: область окна кода ( General ) ( Declarations ) меню Инструменты Добавить процедуру в поле выведенного диалогового окна ввести имя функции Factor в поле Тип сделать щелчок наFunction, в поле Район - щелчок на Public ОК выводятся инструкции Function и End Function.

В качестве аргумента функции используется вводимое в поле TextBox (после старта проекта) число, оно описывается "As Integer" (ввести это в скобки, относящиеся к инструкции Function ). Тип возвращаемого функцией значения нужно описать"As Double" (ввести это за скобками в строке Function ): Public Function Factor(x As Integer) As Double

3. ввести код, данный ниже:

Private Sub Command1_Click()

' проводится преобразование вводимых данных в

' числовые значения, вычисляется факториал введeнного

' числа, результат преобразуется в тип String и выводится

' в поле txtOut

txtOut.Text = Str(Factor(Val(txtInp.Text)))

End Sub

' указание типа данных аргумента и типа данных

' возвращаемого фунцией значения

Public Function Factor(x As Integer) As Double

Dim i As Integer ' i - переменная-счeтчик

If x > 0 And x < 171 Then

Factor = 1

For i = 2 To x

Factor = Factor * i

Next i

Else

Factor = 1

End If

End Function

4. в поле txtInput ввести число, например 89, сделать щелчок на командной кнопке, результат выводится во второе текстовое поле,

Рис. 2.2.Создание функции