Постановка задачі №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
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 7. Зберегти форму та проект з текстом програмного коду в особистій папці під ім’ям Bal_1. Перевірити правильність роботи додатку. 8. Створити файл, що виконується. Зберегти під тим же ім’ям. Перевірити його роботу. 9. Створити та зберегти в особистій папці проекти прикладів, розглянутих в теоретичних основах, створити завантажувальні файли (тобто .ехе файли) Модифікація проекту з використанням конструкції Select……Case Порядок виконання 1. Відкрити новий проект 2. Створити форму, задати властивості об’єктів по аналогії з попереднім проектом 3. Створити програмний код кнопки "Розрахувати" 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 4. Створити програмний код кнопки “Вихід” Private Sub Command2_Click() End End Sub 5. Зберегти форму та проект з текстом програмного коду в особистій папці під ім’ям Bal_2. Перевірити правильність роботи додатку. 6. Створити файл, що виконується. Зберегти його під тим же ім’ям. перевірити правильність роботи ©2015 arhivinfo.ru Все права принадлежат авторам размещенных материалов.
|