Private Sub CmdПуск_Click()

1 2

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