2. Завдання для практичного виконання по темі 4

Постановка задачі №1

Створити форму та скласти програмний код для визначення оцінки абітурієнта по математиці, яка залежить від кількості правильно виконаних задач наступним способом:

• 5 балів, якщо правильно виконано 12 задач;

• 4 бали, якщо правильно виконано від 8 до 11 задач;

• 3 бали, якщо правильно виконано від 3 до 7 задач

• 2 бали в інших випадках.

Для запису алгоритму у вигляді формул введемо позначення:

К – кількість правильно виконаних задач;

NB – набраний бал

5, якщо К=12

4, якщо 8 ≤ К ≤ 11

NB= 3, якщо 3 ≤ К ≤ 7

2, якщо К < 3

Рис. 4.5 Блок-схема алгоритму рішення задачі

Порядок виконання

1. Завантажити VB, вибравши елемент Standard.exe

2. Створити діалогову форму за макетом, представленим на рисунку 4.5)

3. Для введення початкових даних використовувати текстові поля Text1 та Text2, для виведення результатів мітку Label5

4. З адати написи об’єктів форми згідно таблиці 4.1, після чого форма повинна мати вигляд як на рисунку 4.6

Рис. 4.5 Макет форми "Визначення Рис. 4.6 Вигляд форми після

оцінки абітурієнта по математиці" завдання властивості Caption

Таблиці 4.1 Об’єкти форми та значення властивості Caption

Об’єкти	Властивості	Значення
Form1	Caption	Алгоритм розгалуженої конструкції
Label 1	Caption	Визначення оцінки абітурієнта
Label 2	Caption	Прізвище абітурієнта
Label 3	Caption	Кількість правильних відповідей
Label 4	Caption	Оцінка абітурієнта по математиці
Label 5	Caption	(пусто)
Label 6	Caption	Виконав студент 1 курсу ……
Text 1	Text	(пусто)
Text 2	Text	(пусто)
Command 1	Caption	Розрахувати
Command 2	Caption	Вихід

5. Змінити інші властивості об’єктів форми (шрифт, його розмір, колір, спосіб написання, вирівнювання, фон)

6. Створити програмний код кнопки "Розрахувати" з використанням конструкції IF…THEN

Private Sub Command1_Click()

Dim K, NB As Integer

K = Val(Text2.Text)

If K = 12 Then

NB = 5

ElseIf K >= 8 And K < =11 Then

NB = 4

ElseIf K >= 3 And K < =7 Then

NB = 3

ElseIf K < 3 Then

NB = 2

Else

MsgBox "Помилка! Кількість правильних відповідей не повинна перевищувати 12"

End If

Label5.Caption = NB

End Sub

Програмний код кнопки” Вихід”

Private Sub Command2_Click()

End

End Sub

5. Зберегти форму та проект з текстом програмного коду в особистій папці під ім’ям Bal_1. Перевірити правильність роботи додатку.

6. Створити файл, що виконується. Зберегти під тим же ім’ям. Перевірити його роботу.

7. Створити та зберегти в особистій папці проекти прикладів, розглянутих в теоретичних основах, створити завантажувальні файли (тобто .ехе файли)