В качестве оператора для смены вопроса и ответов, при нажатии на кнопку, используется оператор 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
Приложение С – Пример описания тестирования программного обеспечения
|
