Реализация программного обеспечения. В качестве оператора для смены вопроса и ответов, при нажатии на кнопку, используется оператор If Then Else

В качестве оператора для смены вопроса и ответов, при нажатии на кнопку, используется оператор If…Then…Else, так как он представляет собой простейшую и самую распространенную форму проверки условий в Visual Basic.

Для считывания данных из файлов был использован оператор If…Then…Else, потому что заранее не было известно точное количество повторений (когда будет конец файла).

В качестве переменных были использованы два типа: целые (Integer) и строковые (String). Можно было использовать один тип переменной – универсальный (Variant), но данный тип работает очень медленно, поскольку Visual Basic вынужден тратить время на его интерпретацию. К тому же данный тип занимает очень много места в оперативной памяти.

Для создания, удаления и копирования файлов используется модель файловой системы (File System Object). Данная система предоставляет объектно-ориентированный инструмент для работы с папками и файлами. Она выполняется намного быстрее и содержит больше методов и свойств, чем традиционные операторы по работе с папками и файлами.

Форма MDIFrom:

Private Sub mnuAvtor_Click() – данная процедура открывает окно справки об авторе программы

Private Sub mnuCreate_Click() – процедура, открывающая окно создания или изменения теста.

Private Sub mnuExit_Click() – процедура, выхода из программы.

2. Форма frmIzm:

Private Sub cmdExit_Click() – процедура, закрывающая данную форму и удаляющая папку «pred».

Private Sub cmdEnd_Click() – процедура удаляет файл, находящийся в папке «test», копирует файл, находящийся в папке «pred» в папку «test», удаляет папку «pred», закрывает данную форму.

Private Sub cmdRec_Click() – процедура записывает в файл вопросы и ответы.

Private Sub cmdOpen_Click() – процедура открывает файл для изменения теста.

Private Sub cmdSave_Click() – процедура записывает в файл вопросы и ответы.

Private Sub cmdSled_Click() – процедура удаляет все надписи в текстовых полях и убирает галочку у всех переключателей.

Private Sub Command1_Click() – процедура ввода названия теста, создания папки test и pred и проверки, существует ли файл в папке «test».

Public Sub cmdNext_Click() – процедура удаляет все надписи в текстовых полях и убирает галочку у всех переключателей.

Форма frmAvtor

Private Sub Command1_Click() – процедура, закрывающая данную форму

Приложение Р– Пример Приложения «Текст программы»

// Подпрограмма для сохранения варианта правильного ответа

Private Sub cmdRec_Click()

// Если правильный ответ не выбран, то появляется сообщение

If opt1 = False And opt2 = False And opt3 = False Then

MsgBox ("Выберите правильный ответ")

Else

Open k For Append As #1

Print #1, txtQuest.Text

// Проверка, какой ответ выбран правильным и сохранение метки в файле

If opt1 = True Then

Print #1, txtOtv1.Text & Chr(126)

Print #1, txtOtv2.Text

Print #1, txtOtv3.Text

End If

If opt2 = True Then

Print #1, txtOtv1.Text

Print #1, txtOtv2.Text & Chr(126)

Print #1, txtOtv3.Text

End If

If opt3 = True Then

Print #1, txtOtv1.Text

Print #1, txtOtv2.Text

Print #1, txtOtv3.Text & Chr(126)

End If

Close #1

End If

End Sub

Приложение С – Пример описания тестирования программного обеспечения