- •Міністерство освіти і науки україни
- •1 Створення програм у середовищі Visual Basic 6.0. Основні поняття - об'єкт, властивість, подія.
- •1.1 Візуальне створення програми
- •1.2 Створення вихідного коду
- •1.3 Контрольні запитання
- •1.4 Практичні завдання
- •1.5 Тест
- •2 Основні оператори мови
- •2.1 Організація розгалужених обчислювальних процесів
- •2.1.1 Умовний оператор If
- •If умова Then
- •2.1.2 Оператор варіанти Select Case
- •2.2 Організація циклічних обчислювальних процесів
- •2.2.1 Оператор циклу For . . . Next
- •Частина початкового рядка циклу Step n може бути пропущена, коли крок зміни перемінної циклу дорівнює одиниці. Приклад використання циклу For … Next
- •2.2.2 Оператор циклу Do While . . . Loop
- •2.2.3 Оператор циклу Do. . . Loop While
- •2.3 Контрольні запитання
- •2.4 Практичні завдання
- •2.5 Тест
- •3 Використання елементів управління в програмах. Робота з формами. Поняття методу
- •3.1 Елементи управління - смуги прокручування, перемикачі, прапорці, групи, списки, що розчиняються
- •3.2 Робота з формами. Поняття методу
- •Приклад програми
- •3.2 Контрольні запитання
- •3.4 Практичні завдання
- •3.5 Тест
- •4 Управління програмою за допомогою меню. Робота з масивами елементів управління, змінних
- •4.1 Управління програмою за допомогою меню
- •4.2 Робота з масивами елементів управління, змінних
- •4.3 Контрольні запитання
- •4.4 Практичні завдання
- •Аналіз стану товарних запасів
- •5 Розробка програм з використанням підпрограм – процедур і функцій, вікон повідомлень
- •5.1 Підпрограми – процедури і функції
- •5.2 Вікна повідомлень
- •Коди сполучень кнопок у вікні повідомлення
- •Коди значків у вікні повідомлення
- •Можливі значення, що повертає функція MsgBox()
- •Приклад програми з використанням підпрограм, вікон повідомлень
- •5.3 Контрольні запитання
- •5.4 Практичні завдання
- •5.5 Тест
- •6 Робота з файлами
- •6.1 Файли довільного доступу
- •6.2 Файли послідовного доступу
- •6.3 Бінарні файли
- •Приклад виконання програми роботи з файлом
- •5.4 Контрольні запитання
- •5.5 Практичні завдання Завдання №1
- •Завдання №2
- •Завдання №3
- •7 Використання Visual Basic for Application у Microsoft Excel
- •7.1 Основні поняття
- •7.2 Редактор vba
- •7.3 Створення функцій користувача
- •7.4 Автоматизація розрахунків на робочому листі
- •7.5 Робота з формами у середовищі vba
- •7.6 Контрольні запитання
- •7.7 Практичні завдання
- •Створити таблицю «Зведення про реалізацію товарів», розрахунок підсумкових значень у який по рядках і в цілому по таблиці виконується за допомогою командної кнопки «Розрахунок».
- •7.8 Тест
- •Література
- •Інформатика та комп’ютерна техніка
2.2 Організація циклічних обчислювальних процесів
Циклічними є алгоритмічні процеси, які дозволяють повторювати частину програми декілька разів. Кожне повторювання операторів всередині циклу називають ітерацією. Кількість повторювань (ітерацій) може бути відомою заздалегідь або залежати від істинності деякої логічної умови.
2.2.1 Оператор циклу For . . . Next
Оператор циклу For . . . Next використовується тоді, коли потрібно виконати групу операторів заздалегідь відоме число раз.
Загальна форма оператора:
For I = Start to Finish Step N
Блок_операторів
Next
Процес виконання оператора For . . . Next такий:
Змінній I присвоюється значення змінної або виразу Start.
Значення I порівнюється зі значенням змінної або виразом Finish.
Якщо I <= Finish, виконується блок операторів у тілі циклу - чергова ітерація (повторення). Потім змінна I (лічильник циклу) збільшується на N, виконується перехід до п. b. Якщо I > Finish, цикл завершує свою роботу.
Частина початкового рядка циклу Step n може бути пропущена, коли крок зміни перемінної циклу дорівнює одиниці. Приклад використання циклу For … Next
Як приклад розглядається створення програми обчислення суми на рахунку в банку. Користувач повинен ввести такі дані: суму попереднього внеску на рахунок - SPV, банківський відсоток - V, період часу - P. Після натиснення кнопки Розрахунок, програма повинна вивести суму SR, яка буде на рахунку після P років при визначеному банківському відсотку, якщо відома сума первинного внеску. Формула розрахунку суми така:
На початок роботи програми SR = SPV.
Кожного року сума на рахунку змінюється таким чином .
Блок-схем розв’язання задачі подана на рис. 2.4.
На етапі візуального програмування потрібно створити форму, подану на рис. 2.5.
Рисунок 2.4 - Блок-схема розв’язання задачі «Обчислення суми на рахунку»
Рисунок 2.5 - Вікно програми – прикладу використання оператору For...Next
Характеристика форми, елементів управління форми подана в таблиці.
Об'єкт |
Властивість |
Значення |
1 |
2 |
3 |
Форма (Form) |
Name |
frmExampleFor |
Caption |
Програма - приклад циклу For | |
BackColor |
білий | |
Командна кнопка (Command Button) |
Name |
cmdSolve |
Caption |
&Розрахунок | |
Командна кнопка (Command Button) |
Name |
cmdClear |
Caption |
&Очистка | |
Командна кнопка (Command Button) |
Name |
cmdExit |
Caption |
&Вихід | |
Етикетка (Label) |
Name |
lblSPV |
Caption |
Сума первинного внеску: | |
BackColor |
білий | |
Font |
12 пунктів, напівжирний | |
Етикетка (Label) |
Name |
lblV |
Caption |
Банківський відсоток: | |
BackColor |
білий | |
Font |
12 пунктів, напівжирний | |
Етикетка (Label) |
Name |
lblP |
Caption |
Період: | |
BackColor |
білий | |
Font |
12 пунктів, напівжирний | |
Етикетка (Label) |
Name |
lblS |
Caption |
Сума на рахунку: | |
BackColor |
білий | |
Font |
12 пунктів, напівжирний | |
Етикетка (Label) |
Name |
lblSR |
Caption |
0 | |
BackColor |
білий | |
Font |
12 пунктів, напівжирний | |
Alignment |
1 – Right Justify (вирівнювання праворуч) | |
Текстове поле (TextBox) |
Name |
TxtSPV |
Text |
“”(порожній рядок) | |
Текстове поле (TextBox) |
Name |
TxtV |
Text |
“”(порожній рядок) | |
Текстове поле (TextBox) |
Name |
TxtP |
Text |
“”(порожній рядок) |
Характеристика коду програми подана в таблиці.
Дані в рядку коду |
Коментар |
1 |
2 |
Option Explicit |
Оголошення змінних: |
Dim SPV, V, P, SR |
SPV – сума первинного внеску; V – банківський відсоток; P – період; SR – сума на рахунку після P років. |
1 |
2 |
Private Sub cmdClear_Click() |
Заголовок процедури, яка пов’язана з подією Click на кнопці cmdClear (Очистка). |
TxtSPV.Text = " " |
Властивості Text текстового поля txtSPV (для введення суми первинного внеску) привласнюється значення “” (порожній рядок). |
TxtV.Text = " " |
Властивості Text текстового поля txtV (для введення банківського відсотку) привласнюється значення “” (порожній рядок). |
TxtP.Text = " " |
Властивості Text текстового поля txtP (для введення періоду) привласнюється значення “” (порожній рядок). |
lblSR.Caption = 0 |
Властивості Caption етикетки lblSR (для виведення результату) привласнюється значення 0. |
End Sub |
Кінець процедури cmdClear_Click. |
Private Sub cmdExit_Click() |
Заголовок процедури, яка виконується у випадку події Click – клацання лівою кнопкою миші на кнопці cmdExit (Вихід). |
End |
Кінець роботи програми |
End Sub |
Кінець процедури cmdExit_Click. |
Private Sub cmdSolve _Click() |
Заголовок процедури, яка пов’язана з подією Click на кнопці cmdSolve (Розрахунок). |
SPV = Val(txtSPV.Text) |
Змінній SPV привласнюється значення властивості Text поля txtSPV – значення суми первинного внеску, яка введена в поле txtSPV. При цьому виконується перетворення текстового значення на числове за допомогою функції Val. |
V = Val(txtV.Text) |
Змінній V привласнюється значення властивості Text поля txtV – значення банківського відсотка. |
P = Val(txtP.Text) |
Змінній P привласнюється значення властивості Text поля txtP – значення періоду. |
SR=SPV |
Змінній SR перед початком циклу привласнюється значення змінної SPV. |
For i=1 To P |
Для і, що змінюється від 1 до Р (оскільки Step N не визначено, крок зміни дорівнює 1), доки і<=P виконується дія |
SR=SR*(100+V)/100 |
змінній SR привласнюється значення – попереднє значення SR помножене на (100+V)/100 |
Next |
Значенню і привласнюється і+1, виконується перехід до рядку For. |
lblSR.Caption = str(SR) |
Властивості Caption етикетки lblSR привласнюється значення SR, яке функцією str перетворюється з числового типу текстовий. |
End Sub |
Кінець процедури cmdSolve _Click. |