Модифікація проекту з використанням конструкції Select……Case
Порядок виконання
Відкрити новий проект
Створити форму, задати властивості об’єктів по аналогії з попереднім проектом
Створити програмний код кнопки "Розрахувати"
Private Sub Command1_Click()
Dim K, NB As Integer
K = Val(Text2.Text)
Select Case K
Case 12
NB = 5
Case 8 To 11
NB = 4
Case 3 To 7
NB = 3
Case Is < 3
NB = 2
Case Else
MsgBox "Помилка! Кількість правильних відповідей не повинна перевищувати 12"
End Select
Label4.Caption = NB
End Sub
Створити програмний код кнопки “Вихід”
Private Sub Command2_Click()
End
End Sub
Зберегти форму та проект з текстом програмного коду в особистій папці під ім’ям Bal_2. Перевірити правильність роботи додатку.
Створити файл, що виконується. Зберегти його під тим же ім’ям. перевірити правильність роботи
Постановка задачі №2
Розробити блок-схему алгоритму рішення задачі, спроектувати форму, визначити властивості об’єктів та скласти програмний код з використанням конструкції Select…Case для виведення повного імені 5 друзів по скороченому (наприклад, при введенні короткого імені Оля, виводилося б повне ім’я Ольга). Передбачити, що при введенні іншого імені виводилося б повідомлення: “Я з Вами не знайома”. Зберегти проект та форму в особистій папці під ім’ям Друзі. Створити завантажувальний файл.
Проект форми може мати вид, представлений на рисунку 4.7. Після виконання програми “Друзі” вікно форми може мати вигляд, представлений на рисунку 4.8.
Рис 4.7 Макет форми виведення повного Рис 4.8. Результати виконання
імені друга програми "Друзі"
Приклад програмного коду (для 3 імен ) кнопки “Повне ім’я”
Private Sub Command1_Click()
Dim KN, N As String
KN = Text1
Select Case KN
Case "Оля"
N = "Ольга"
Case "Маша"
N = "Марія"
Case "Федя"
N = "Федір"
Case Else
MsgBox "Я з Вами не знайома"
End Select
Text2 = N
End Sub
Програмний код кнопки “Вихід”
Private Sub Command2_Click()
End
End Sub
Рис 4.9 Блок-схема алгоритму рішення задачі
Тема: "Оператори vb. Організація циклічних обчислень".
Теоретичні основи.
Обчислювальний процес називається циклічним, якщо він повторюється багаторазово до тих пір, поки не буде виконано певну умову. Група операторів, що повторюються називаються тілом циклу. Цикли можуть бути наступних типів: цикл із заданою кількістю повторювань тіла циклу (цикл з параметром), цикл з передумовою, цикл з постумовою.
Цикл із заданою кількістю повторювань тіла циклу (цикл з параметром)
For…Next
Цей цикл вважається самою розповсюдженою конструкцією та має наступний синтаксис:
For лічильник = початкове_значення ТО кінцеве_значення [Step крок]
Оператори тіла циклу
Next [лічильник]
На початку виконання циклу значення лічильника встановлюється на початкове_значення. При кожному проходженні змінна лічильника збільшується на 1 або на величину кроку. Якщо вона досягає або стає більше (менше при від’ємному кроці) кінцевого_значення, то цикл закінчується та виконуються наступні оператори. Різниця між початковим та кінцевим значенням, ділене на величину кроку складає число проходів (число ітерацій циклу).
Стандартний алгоритм роботи такого циклу представлено на наступному рисунку
Приклад 5.1. Використовуючи циклічний алгоритм розрахувати суму перших 10 чисел натурального ряду. Тобто знайти S=1+2+3+4+5+6+7+8+9+10. Скласти блок-схему, макет форми та текст програми.
Рис 5.1 Макет форми (об’єкти та значення властивості Caption)
Рис. 5.2 Блок-схема алгоритму рішення задачі
Програмний код кнопки “Розрахувати”
Private Sub Command1_Click()
Dim S,I As Integer
S=0
For I=1 To 10
S=S+I
Next I
MsgBox "Сума перших 10 натуральних чисел дорівнює ” & S,0, “Вікно виведення”
End Sub
Програмний код кнопки “Вихід”
Private Sub Command2_Click()
End
End Sub
Коли кількість повторень циклу невідома, використовують конструкцію типу Dо. Існує два види цього оператора::
Do While <умова>
тіло циклу
Loop
Do
тіло циклу
Loop While <умова>
Різниця між такими циклічними блоками полягає в місці перевірки значення умовного виразу (на початку циклу або в кінці). Відповідно змінюється місце розташування змінної, значення якої аналізується в умові.
На кожному новому кроці циклу перевіряється умова; тому важливо при розробці програми стежити за тим, щоб у тілі циклу значення змінної в умові циклу могло бути змінено так, аби умова стала хибною, тобто цикл закінчився.
Приклад 5.2 Використовуючи циклічний алгоритм розрахувати добуток перших 10 чисел натурального ряду. Тобто знайти D=1*2*3*4*5*6*7*8*9*10. Скласти алгоритм, макет форми та текст програми.
Рис. 5.3 Блок-схема алгоритму рішення задачі
Рис. 5.4 Макет форми (об’єкти та значення властивості Caption)
Програмний код кнопки “Цикл з передумовою”
Private Sub Command1_Click()
Dim D, I As Integer
D = 1
I = 1
Do While I <= 10
D = D * I
I = I + 1
Loop
MsgBox "Добуток перших 10 натуральних чисел дорівнює " & D, 0, "Вікно виведення"
End Sub
Модифікація програмного коду, коли перевірка значення умовного виразу знаходиться в кінці (цикл з постумовою)
Програмний код кнопки “Цикл з постумовою”
Private Sub Command2_Click()
Dim D, I As Integer
D = 1
I = 1
Do
D = D * I
I = I + 1
Loop While I <= 10
MsgBox "Добуток перших 10 натуральних чисел дорівнює " & D, 0, "Вікно виведення"
End Sub
Програмний код кнопки “Вихід”
Private Sub Command3_Click()
End
End Sub
Часто використовуються вкладені цикли, конструкції яких мають такий вигляд, який розглянемо на прикладі оператора For…Next.
For I=<початкове_значення> To <кінцеве_значення> [Step <к>]
For J=<початкове_значення> To <кінцеве_значення> [Step <к>]
тіло циклу
Next J
Next I
Приклад 5.3. Скласти програму виведення на екран матриці розмірністю 4 х 3, елементами якої є числа натурального ряду. Тобто: 1 2 3 4
5 6 7 8
9 10 11 12
Рис. 5.5 Блок-схема алгоритму рішення задачі
Рис. 5.6 Макет форми (об’єкти та значення властивості Caption)
Програмний код кнопки “Старт”
Private Sub Command1_Click()
Cls
Dim N, I, J As Integer
N = 1
For I = 1 To 3
For J = 1 To 4
Print N,
N = N + 1
Next J
Next I
End Sub