Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Практическая работа 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 Function4. в поле txtInput ввести число, например 89, сделать щелчок на командной кнопке, результат выводится во второе текстовое поле, рис. 2.2.
Рис. 2.2. Создание функции
|
|