Здавалка
Главная | Обратная связь

Постановка задачі №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

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 Все права принадлежат авторам размещенных материалов.