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

Создадим функцию вычисления факториала числа (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 и выводится ' в поле txtOuttxtOut.Text = Str(Factor(Val(txtInp.Text))) End Sub' указание типа данных аргумента и типа данных ' возвращаемого фунцией значенияPublic Function Factor(x As Integer) As DoubleDim i As Integer ' i - переменная-счeтчикIf x > 0 And x < 171 Then Factor = 1 For i = 2 To x Factor = Factor * i Next iElseFactor = 1 End IfEnd Function

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

 

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