Dim i As Integer
Cls ’
For i = 1 To 15 Step 1
FrmЦиклы.FontSize = 9 + i ’
Print i; "Вивчаємо цикли"
Next i
End Sub
ü ЗАПУСТІТЬ додаток на виконання в режимі Run-time;
ü ЗМІНІТЬ значення кроку, кількості написів, розмір шрифту, колір шрифту (ForeColor для форми), до фрази додайте Прізвище та Ім’я.
ü РОЗМІСТІТЬ В ЗВІТІ копію вікна об’єкту та код програми з результатами завдання 2.1. (рис.2.1)
HOME\№групи\LR_4_Прізвище\ LR_4_Прізвище.doc
ü ЗБЕРІЖІТЬ проект та форму.
ЗАВДАННЯ 4.2. РОЗРАХУВАТИ КІЛЬКІСТЬ СПОЛУЧЕНЬ ІЗ N ЕЛЕМЕНТІВ ПО М. ВИД ДОДАТКУ МОЖЕ МАТИ ВИГЛЯД, НАДАНИЙ НА РИС. 4.18.
Обов'язкові умови: для обчислення факторіалу використати функцію користувача; здійснити виведення даних на форму.
Функція користувача (Function) — один із видів процедур, які на відміну від підпрограм (Sub) повертають тільки одне «своє» значення (числове, символьне або логічне). Функція викликається по імені. Вимоги до імен функцій такі, як і до ідентифікаторів, та повинні бути зарезервованими.
Формат визначення функції: [Private|Public] [Static] Function Ім’я Функції ([ Список Аргументів ]) [As Туре ] [ Блок операторів ] Ім’я Функції = Вираз [ Блок операторів ] [Exit Sub] [ Блок операторів ] End Function де Private — необов’язкове ключове слово, яке означає, що дана функція може бути викликана тільки із того модуля або форми, в якій описана; Public — необов’язкове ключове слово, яке означає, що дана функція може бути викликана із будь якого модуля або форми даного проекту. При цьому сама функція повинна бути описана в модулі; Static — свідчить о статусі локальних змінних (об’явлені всередині цієї функції). Локальні змінні будуть зберігати свої значення між послідовними викликами даної функції; Ім’я Функції [3] — рядок символів (ідентифікаторів), на правах змінної; СписокАргументів — змінні та їх типи, що є аргументами функції. Подаються через кому та беруться у дужки; Туре — тип значення, що повертається функцією (результат роботи функції); Вираз — арифметичне, символьне або логічне значення, що повертає функція; Блок операторів — будь-яка кількість операторів; Exit Sub — передчасне завершення роботи функції |
Розміщення програмного коду функції. Функція може входити до складу модуля екранної форми (файл frm, код записується у вікні програмного коду заданої екранної форми) або універсального модуля (файл bas, визначається у вікні програмного коду цього модуля).
Створення функції:
Спосіб 1. Курсор необхідно помістити в те місце програмного коду, яке не належить жодній процедурі. Можна, наприклад, клацнути по елементу (General) меню Object. Курсор автоматично переміститься в область, загальну для всіх процедур модуля екранної форми. Потім потрібно набрати клавіатурі ключове слово Function, услід за яким, — Ім’я Функції, а за ним — СписокАргументів в дужках. Visual Basic миттєво видасть останній рядок визначення: End Function. Ваше завдання — вписати в цей "шаблон" необхідні рядки визначення функції.
Спосіб 2. Слід вибрати команду Add Procedure меню Tools а в діалоговому вікні в текстове поле ввести ім'я функції і встановити відповідні перемикачі. Якщо функція має універсальний характер, її, як і процедуру, можна помістити у файл стандартного модуля. З таких функцій можна створювати цілі бібліотеки корисних, на ваш погляд, функцій.
Зауваження. Хорошим рішенням вважається збереження функцій у файлах модуля. В цьому випадку коди, що відповідають за роботу призначеного для користувача інтерфейсу, не змішуватимуться з кодами, що виконують обробку даних і що здійснюють обчислення.
: ПОРЯДОК ВИКОНАННЯ ЗАВДАННЯ
1 етап –? постановка задачі:
Якщо з N різних елементів складати групи по М елементів в кожній, не звертаючи уваги на порядок елементів в групі, то комбінації, що виходять при цьому, називаються сполученням з N елементів по М. Для підрахунку кількості сполучень використовується така формула:
2 етап -? складання схеми алгоритму (рис.4.3)
3 етап –: програмування,
1 крок – проектування інтерфейсу задачі (створення об’єктів):
: ЗРОБИТИ СТАРТОВОЮ ФОРМУ, на якій буде виконуватися завдання 4.1 (Project►Project Properties→…);
: УСТАНОВИТИ на формі ОБ’ЕКТИ, як вказано на рис.4.2, використовуючи вікно Toolbox (General)
1 крок – проектування інтерфейсу задачі (налаштування об’єктів):
: НАЛАШТУЙТЕ відповідні ОБ’ЄКТИ використовуючи вікно властивостей Properties (табл.4.1):
Таблиця 4.1
Об’єкт | Ім’я об’єкта за замовчанням (значення властивості Name) | Властивість | Значення властивості | Коментар |
Текстові поля | Відповідні TextBox | Name | txtn, txtm, txtc | |
Командна кнопка | Command1 | Name | cmdSohet | |
Форма, мітки, кнопка | Caption | Відповідно рис. 4.2 |
ü ЗБЕРІЖІТЬ проект і форму.
2 крок – створення коду програми:
: 1) НАПИШІТЬ ПРОЦЕДУРУ ОБЧИСЛЕННЯ та ВИВЕДЕННЯ розрахункового значення с для кнопки Розрахунок