Page 100 - 4450

ЛАБОРАТОРНА РОБОТА 17

ПРОГРАМА ТЕСТУВАННЯ

Мета роботи – навчитися створювати програми для
тестування.

Завдання і порядок виконання

1. Ознайомитися з наведеним прикладом.
2. Виконати задачу, видану викладачем.
2. Виконати задачі для самостійної роботи.

Програма тестування
Dim q As Integer ' загальна кількість питань
Dim r As Integer ' кількість вірних відповідей
Dim rate(1 To 4) As Integer ' критерії оцінок
Dim comment(1 To 4) As String
' коментарії
Dim f As String
' процедура зчитує питання з файлу і виводить на форму
Sub NextQuestion()
If Not EOF(1) Then ' файл не закінчився
' зчитування і виведення питання
Line Input #1, f
Label1.Caption = f
' зчитування варіантів відповіді
Line Input #1, f
Option1.Caption = f
Line Input #1, f
Option1.Tag = f
' чи правильна відповідь: 1 - так, 0 - ні;
' 0 чи 1 записується у властивість
Tag відповідного
' компонента Option
Line Input #1, f
Option2.Caption = f
Line Input #1, f
Option2.Tag = f
Line Input #1, f

98