Автоматизация и контроль знаний (На Delphi и Visual Basic)

LastName = LastNameobjNewMember. FirstName = FirstNameobjNewMember. Number = NumberobjNewMember. ID = IDmCol. Add objNewMember 'возвращаем созданный объектSet Add = objNewMember’а теперь освобождаем памятьSet objNewMember = NothingEnd FunctionPublic Sub Remove (vntIndexKey As Variant) mCol. Remove vntIndexKeyEnd Sub’СвойстваPublic Property Get Item (vntIndexKey As Variant) As clsDBSet Item = mCol (vntIndexKey)End PropertyPublic Property Get Count () As LongCount = mCol. CountEnd PropertyPublic Property Get NewEnum () As IUnknownSet NewEnum = mCol. _NewEnum]End Property’Инициализация и закрытие коллекцииPrivate Sub Class_Initialize ()Set mCol = New CollectionEnd SubPrivate Sub Class_Terminate ()Set mCol = NothingEnd Sub

Шаг 6. Перейдем в форму. В разделе деклараций объявим новую переменную, опирающуся на только что созданную коллекцию colDB, а в код добавим строку

Set colTxtDB = New colDB

Вот, собственно говоря, и все для создания нового пустого файла для базы данных.

Шаг 7. Теперь напишем код пересылки данных из объектной модели БД в текстовые поля формы.

Private Sub DBInForm (Index As Integer) txtLastName. Text = colTxtDB (Index).LastNametxtFirstName.Text = colTxtDB (Index).FirstNametxtNumber.Text = colTxtDB (Index).NumberlblID.Caption = «Номер записи: «& colTxtDB (Index).IDEnd Sub

Шаг 8. Создадим код для кнопок редактирования. Для кнопки «Добавить» запись: Увеличиваем счетчик общего количества записей на 1, текущую запись нумеруем последней, используем метод Add из коллекции colDB и пересылаем данные в форму.

CountEntries = CountEntries + 1CurrentEntries = CountEntries colTxtDB. Add txtLastName.Text, txtFirstName. Text, txtNumber. Text, CurrentEntriesDBInForm CurrentEntries

Для кнопки «Изменить» запись: присваиваем новые значения в БД из каждого поля и пересылаем данные в форму.

If CountEntries = 0 Then Exit SubcolTxtDB (CurrentEntries).LastName = txtLastName. TextcolTxtDB (CurrentEntries).FirstName = txtFirstName. TextcolTxtDB (CurrentEntries).Number = txtNumber. TextDBInForm CurrentEntries

Для кнопки «Удалить» запись: после подтверждения удаления из БД удаляем текущую запись. Если запись была последней, переходим к предпоследней, в противном случае она автоматически становится следующей. Уменьшаем счетчик общего количества записей на 1 и пересылаем текущую запись в форму.

If CountEntries = 0 Then Exit Sub If MsgBox («Удалить текущую запись?», vbYesNo + vbDefaultButton2 + vbQuestion, _" Удаление записи") = vbYes ThencolTxtDB. Remove CurrentEntriesIf CurrentEntries = CountEntries ThenCurrentEntries = CurrentEntries — 1End If

CountEntries = CountEntries — 1DBInForm CurrentEntriesEnd If

Здесь же необходимо позаботиться об отслеживании изменений в БД. Для этого в разделе деклараций объявим переменную-флаг:

Private flagChange As Boolean

И в коде, после всех манипуляций с кнопками редактирования, этот флаг установим.

flagChange=True

К этой переменной будем обращаться при закрытии файла для сохранения измененных записей.

Шаг 9. Вернемся к кнопкам cmdDB. Опишем код для открытия уже существующего файла. Начальная часть кода, работа с классом clsCommonDialog остается той же самой, а вот работа с FSO — будет отличаться. Создаем новую коллекцию colTxtDB

Set colTxtDB = New colDB

Сначала откроем текстовый поток

Set tsOpen = fso. OpenTextFile (.FileName, ForReading)

Затем считаем первую строку из файла, которая будет содержать информацию о количестве записей в БД.

CountEntries = tsOpen. ReadLine

Далее в цикле For-Next считываем все записи и с помощью метода Add добавляем их (не забудте объявить внутренние переменные для этой манипуляции)

For i = 1 To CountEntriesstrLastname = tsOpen. ReadLinestrFirstName = tsOpen. ReadLinestrNumber = tsOpen. ReadLineintID = tsOpen.ReadLinecolTxtDB.Add strLastname, strFirstName, strNumber, intIDNext

После считывания информации следует закрыть файлtsOpen. Close

Изменяем заголовок файла, текущую запись делаем первой и пересылаем ее в БД.

Caption = «Demo FSO as DB («& .FileTitle & «)» CurrentEntries = 1DBInForm CurrentEntries

Шаг 10. Далее необходимо позаботиться о сохранении информации. Для этого создадим процедуру CloseFile. Для того, чтобы она заработала необходимо изменение flagChange и подтверждение сохранения пользователем. Работа с диалоговым окном та же самая, несколько изменится заголовок и используется метод ShowSave, вместо ShowOpen.

If flagChange Then 'если были произведены изменения в БДIf MsgBox («Сохранить произведенные изменения в базе данных?», _vbYesNo + vbQuestion, «Закрытие программы») = vbYes ThenWith dlgDb. DialogTitle = «Сохранение текстовой БД» .Filter = «Текстовые БД (*.tdb)-*.tdb» .FilterIndex = 1. ShowSave

Далее открываем текстовый поток для записи и записываем первую строку — количество записей.

Set tsSave = fso. OpenTextFile (.FileName, ForWriting) tsSave. WriteLine CountEntries

Последовательно записываем все записи и закрываем файл. Флаг изменений устанавливаем в False.

For i = 1 To CountEntriestsSave. WriteLine colTxtDB (i).LastNametsSave.WriteLine colTxtDB (i).FirstNametsSave.WriteLine colTxtDB (i).NumbertsSave.WriteLine colTxtDB (i).IDNexttsSave.CloseEnd WithEnd IfEnd IfflagChange = False

Шаг 11. В кодах для кнопок создания и открытия файлов внесем проверку на уже открытый файл. Если открыт — закрываем его и уничтожаем объект коллекции.

If Len (Caption) > 14 Then 'надпись длиннее чем «Demo FSO as DB» CloseFileSet colTxtDB = NothingEnd If

Шаг 12. При выходе из программы сохраняем файл и обнуляем все объекты

Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer) CloseFile'очистка памятиSet colTxtDB = NothingSet tsOpen = NothingSet tsSave = NothingSet tsNew = NothingSet fso = NothingEnd Sub

Шаг 13. Осталось совсем чуть-чуть написать код для передвижения по записям. Производим позиционирование текущей записи:

Переход к первой записи

CurrentEntries = 1

Переход к последней записи

CurrentEntries = CountEntries

Переход к предыдущей записи

CurrentEntries = CurrentEntries — 1

Переход к следующей записи

CurrentEntries = CurrentEntries + 1

Далее делаем проверку, чтобы номер записи не выходил за диапазон базы данных.

If CurrentEntries < 1 ThenCurrentEntries = 1ElseIf CurrentEntries > CountEntries ThenCurrentEntries = CountEntriesEnd If

И наконец пересылаем текущую запись в форму.

DBInForm CurrentEntries

3.

3. Порядок работы с программой тестирования

Для начала работы необходимо указать (или выбрать из списка) фамилию и имя учащегося, а также отметить те наборы вопросов, которые необходимы для контроля. Режимы контроля знаний, путь к файлу статистики и другие параметры выбираются в пункте «Настройка» .

Новый вопрос начинается с вопросительного знака «?». Он должен находится в начале строки (перед ним не должно быть никаких других символов). Общее количество вопросов в файле — не ограничено. Кол-во вариантов ответа на вопрос — не ограничено. Варианты ответов начинаются со знаков — (минус — неправильный вариант ответа) или + (плюс — правильный вариант ответа). Знаки «+», «-» и «?» должны находится в начале строки (перед ними не должно быть ничего, даже пробелов).

У вопроса может быть несколько правильных вариантов ответа, а также НОЛЬ и более неправильных вариантов ответа.

За каждый ответ на вопрос учащийся может получить от 0 до 1 балла. Для получения 1 балла учащийся должен отметить ТОЛЬКО ВСЕ правильные варианты ответов. Оценка за ответ рассчитывается по формуле:

Mark := КВП / ОКП / (КВН + 1), где КВП — Количество выбранных правильных вариантов;

ОКП — Общее количество правильных вариантов в вопросе;

КВН — Количество выбранных неправильных вариантов.

Для обеспечения безопасности работы с тестовыми материалами, невозможности студентов (или школьников) получить к ним несанкционированный доступ, тесты включаются непосредственно в файлы форм программы, и далее являются составной частью исполняемого файла программы, декомпиляция которого маловероятна, поскольку сопряжена с серьезными трудностями. Структура программы представлена из 3 форм:

Форма описания системы тестирования;

Форма для тестирования;

Форма настроек и создания тестов.

Форма описания системы тестирования, состоит из следующих компонентов:

Список тем, представленный в виде выпадающего списка;

Навигационных кнопок;

Кнопки управления лекционным материалом;

Кнопки управления программой;

Окно тестирования содержит:

Область тестовых вопросов;

кнопки выбора ответов;

Панель управления;

Панель таблицы ответов;

информационную панель;

Строку подсказок.

Формы работают в модальном режиме, что исключает возможность использования лекционного материала при ответе на тесты и ненужного заполнения памяти компьютера неиспользуемыми окнами.

При запуске программы появляется окно начальной формы:

Рис. 3.

4. Начало работы с программой Теперь можно либо начать тестирование по выбранной теме, либо начать работу над созданием новых тестовых заданий. Если требуется начать тестирование, то программа попросит ввести фамилию и имя тестируемого, а затем откроется окно собственно тестирования по теме:

Рис. 3.

5. Окно тестирования по выбранной теме Пользователь выбирает правильные, на его взгляд ответы, и переходит к следующему вопросу, нажимая кнопку «Далее». После завершения тестирования выводится окно с результатами и статистикой:

Рис. 3.

6. Окно статистики результатов тестирования Для выбора новых тестовых заданий необходимо воспользоваться кнопкой «Добавить тест». В раскрывающемся окне будет предложен список доступных тестовых файлов, содержащих тестовые вопросы. Если требуется редактировать записи и порядок прохождения уже существующего теста, следует нажать кнопку (при выделенной теме тестирования) «Тест (Редактирование теста». Откроется новое окно:

Рис. 3.

6. Редактирование базы тестов Введя необходимые данные, переходим собственно к изменению (дополнению) тестовых заданий :

Рис. 3.

7. Редактирование отдельного теста

Заключение

Начавшееся в нашей стране с начала 80-х годов внедрение в учебных заведениях новых информационных технологий — обучение при помощи педагогических программных средств, а также использование тестирующих программ — дало более чем скромные результаты. Среди многих известных причин этого (финансовые, технические, организационные, методические трудности) отметим одну: психологическое неприятие преподавателями «компьютерных» методов обучения и контроля знаний, особенно высококвалифицированными, творчески работающими. У них для этого есть основания: налицо большое количество плохих программ, не отвечающих главным психолого-педагогическим принципам обучения, неудачно реализующих основные этапы процесса усвоения знаний; как правило, отсутствует методическое сопровождение; оказываются непомерно большими затраты времени и сил на освоение компьютеров, изучение программы, поддержку соответствующей инфраструктуры; при использовании даже хороших систем нивелируется роль учителя в учебно-воспитательном процессе, исчезает творческий характер его труда; отсутствует система поощрения педагогов-новаторов, осваивающих новые информационные технологии.

Эту ситуацию можно и хочется изменить. Развитие систем проектирования программ (объектно-ориентированные системы визуального программирования, СУБД, системы моделирования нейронных сетей, и т. п.) дало в руки инженеров и системных аналитиков мощнейшие средства разработки и внедрения в жизнь самых фантастических проектов.

В данной работе частично были проанализированы существующие методы и модели, позволяющие построить так называемую интеллектуальную автоматизированную систему контроля знаний. Также была проведена собственная разработка несложной программы тестирования на языке программирования Visual Basic. К сожалению, пока она может обрабатывать только тестовые задания, выполненные в текстовом формате. В перспективе хотелось бы реализовать программный комплекс, позволяющий преподавателям готовить тестовые задания просто в современных текстовых редакторах высокого уровня, например, в Word. Открытым также остается вопрос о наиболее рациональном методе организации базы данных для тестовых заданий.

Выполненная курсовая работа является первым шагом к созданию системы, позволяющей преподавателю проводить текущий и финальный контроль более быстро, объективно и эффективно. Реализация методов адаптивного тестирования, использование нечеткой логики и инженерии знаний позволит достичь больших результатов в этой области.

1. Аванесов B.C. Научные проблемы тестового контроля знаний. М., Учебный центр при исследовательском центре проблем качества подготовки специалистов, 2004

2. Батаршева А. В. Тестирование. — М. «Дело», 2003

3. Беспалько В. П. Педагогика и прогрессивные технологии обучения. — М.:Проект, 2005

4. Быстрова Н. Н., Классы в Visual Basic и их использование, VB Rewiev, М., 2004, № 11

5. Васильев В. И., Тягунова Т. Н. Теория и практика формирования програмно-дидактических тестов. — М., МГУЭС и И, 2001

6. Казаринов А. С., Култышева А. Ю., Мирошниченко А. А. Технология адаптивной валидности тестовых заданий: Учебное пособие. Глазов: ГГПИ, 2002

7. Майоров А. Н. Теория и практика создания тестов для системы образования. — М.: Интеллект-Центр, 2007

8. Марутин Н. П., Основы программирования в среде Visual Basic, СПб, BHV, 2005

9. Моисеев В. Б., Усманов В. В., Таранцева К. Р., Пятирублевый Л. Г. «Оценивание результатов тестирования на основе экспертно-аналитических методов». Журнал «Открытое образование», № 3, 2001

10. Новиков С. В. «Принципы разработки Интернет учебников» // «Информатика и образование» № 10 — 2005 г.

11. Носов П. А., Текстовые базы данных в VB, Byte, 2006, № 7

12. Рудинский Е. В. Рреализация алгоритмов прямого тестирования в интеллектуальной автоматизированной системе контроля знаний. Сборник материалов конференции «Анализ качества образования и тестирование». 22.

03.2001, Москва, МО РФ, МЭСИ, 2001

13. Христочевский С. А. «Информационные и коммуникационные технологии в образовании» //"Информатика и образование" // № 2 — 2006 г.

14. Челышкова М. Б. Разработка педагогических тестов на основе современных математических моделей: Уч.пособие. М.: Исследовательский центр проблем качества подготовки специалистов, 2003

15. Челышкова М. Б. Теория и практика конструирования педагогических тестов: Учебное пособие. М.: Логос, 2002. 432 с.

16. API-функции в Visual Basic: типовые решения, М., Базы данных, № 2, 2007

Приложения Приложение 1. Процедура ShowFileDialog

Private Sub ShowFileDialog (ByVal iAction As Integer) Dim tOpenFile As OpenFilenameDim lMaxSize As Long Dim sFileNameBuff As StringDim sFileTitleBuff As StringOn Error GoTo ShowFileDialogError’инициализация буфераiAction = iAction 'Action propertylApiReturn = 0 'APIReturn propertylExtendedError = 0 'ExtendedError propertytOpenFile. lStructSize = Len (tOpenFile)tOpenFile.hwndOwner = lhdc 'Замена «-» на Chr (0)tOpenFile.lpstrFilter = sAPIFilter (sFilter)tOpenFile.iFilterIndex = iFilterIndex’определение размера буфера от свойства MaxFileSizeIf lMaxFileSize > 0 ThenlMaxSize = lMaxFileSizeElselMaxSize = 255End If sFileNameBuff = sFileName’заполнение пробелами до 255While Len (sFileNameBuff) < lMaxSize — 1sFileNameBuff = sFileNameBuff & ««Wend'обрежем до длины lMaxFileSize — 1If lMaxFileSize = 0 ThensFileNameBuff = Mid$(sFileNameBuff, 1, lMaxSize — 1) Else sFileNameBuff = Mid$(sFileNameBuff, 1, lMaxFileSize — 1) End If’установим в конце нулевой знакsFileNameBuff = sFileNameBuff & Chr$(0)tOpenFile.lpstrFile = sFileNameBuffIf lMaxFileSize <> 255 Then tOpenFile. nMaxFile = 255End If’операции, аналогичные вышеисполненнымsFileTitleBuff = sFileTitleWhile Len (sFileTitleBuff) < lMaxSize — 1 sFileTitleBuff = sFileTitleBuff & ««WendIf lMaxFileSize = 0 ThensFileTitleBuff = Mid$(sFileTitleBuff, 1, lMaxSize -1)ElsesFileTitleBuff = Mid$(sFileTitleBuff, 1, lMaxFileSize- 1) End IfsFileTitleBuff = sFileTitleBuff & Chr$(0)tOpenFile.lpstrFileTitle = sFileTitleBufftOpenFile. lpstrInitialDir = sInitDirtOpenFile. lpstrTitle = sDialogTitletOpenFile. Flags = lFlagstOpenFile. lpstrDefExt = sDefaultExt’выполним GetOpenFileName API-функциюSelect Case iActionCase 1 'ShowOpenlApiReturn = GetOpenFileName (tOpenFile)Case 2 'ShowSavelApiReturn = GetSaveFileName (tOpenFile)Case Else Exit SubEnd Selectm_cancelled = False’Возвращение дескриптора от API-функции GetOpenFileName Select Case lApiReturnCase 0 'нажата кнопка Cancel’генерация ошибкиm_cancelled = TrueExit SubCase 1 'пользователь выбрал или ввел файл’Используем внутреннюю процедуру sLeftOfNull 'для получения пути и имени файлаsFileName = sLeftOfNull (tOpenFile.lpstrFile)sFileTitle = sLeftOfNull (tOpenFile.lpstrFileTitle)Case Else 'если произошла ошибка вызываем CommDlgExtendedErrorlExtendedError = CommDlgExtendedErrorEnd Select Exit SubShowFileDialogError: Exit SubEnd Sub

Приложение 2. Листинг главной формы программы тестирования

VERSION 5.00

Object = «{C1A8AF28−1257−101B-8FB0−0020AF039CA3}#1.1#0»; «MCI32.OCX»

Begin VB. Form frmMain

BackColor = &H00FFC0C0&

BorderStyle = 1 'Fixed Single

Caption = «Tester»

ClientHeight = 4770

ClientLeft = 45

ClientTop = 435

ClientWidth = 6795

LinkTopic = «Form1»

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 4770

ScaleWidth = 6795

StartUpPosition = 2 'CenterScreen

Begin MCI. MMControl mmPlayer

Height = 330

Left = 5160

TabIndex = 8

Top = 240

Visible = 0 'False

Width = 3540

_ExtentX = 6244

_ExtentY = 582

_Version = 393 216

DeviceType = «»

FileName = «»

End

Begin VB. CheckBox cheMusic

BackColor = &H00FFC0C0&

Caption = «Музыка»

BeginProperty Font

Name = «MS Sans Serif»

Size = 9.75

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 255

Left = 2790

TabIndex = 7

Top = 3720

Width = 1215

End

Begin VB. CommandButton cmdInfo

Caption = «Информация»

Height = 450

Left = 5055

TabIndex = 6

Top = 4215

Width = 1530

End

Begin VB. CommandButton cmdExit

Caption = «Выход»

Height = 450

Left = 210

TabIndex = 5

Top = 4215

Width = 1530

End

Begin VB. CommandButton cmdInform

Caption = «Информатика»

BeginProperty Font

Name = «MS Sans Serif»

Size = 9.75

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 555

Left = 2430

Style = 1 'Graphical

TabIndex = 4

Top = 2850

Width = 1935

End

Begin VB. CommandButton cmdMath

Caption = «Математика»

BeginProperty Font

Name = «MS Sans Serif»

Size = 9.75

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 555

Left = 555

Style = 1 'Graphical

TabIndex = 3

Top = 1965

Width = 1935

End

Begin VB. CommandButton cmdHim

Caption = «Химия»

BeginProperty Font

Name = «MS Sans Serif»

Size = 9.75

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 555

Left = 4305

Style = 1 'Graphical

TabIndex = 2

Top = 1965

Width = 1935

End

Begin VB. Line Line1

X1 = 300

X2 = 6510

Y1 = 1575

Y2 = 1575

End

Begin VB. Label Label2

BackStyle = 0 'Прозрачно

Caption = «Tester»

BeginProperty Font

Name = «MS Sans Serif»

Size = 18

Charset = 204

Weight = 700

Underline = -1 'True

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

ForeColor = &H000000FF&

Height = 405

Left = 2797

TabIndex = 1

Top = 240

Width = 1200

End

Begin VB. Label Label1

Alignment = 2 'Центровка

BackStyle = 0 'Прозрачно

Caption = «Выберите предмет, по которому хотите пройти тест»

BeginProperty Font

Name = «MS Sans Serif»

Size = 9.75

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 525

Left = 1545

TabIndex = 0

Top = 915

Width = 3705

End

End

Attribute VB_Name = «frmMain»

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub cheMusic_Click ()

If cheMusic. Value = 1 Then

mmPlayer.FileName = «music.mid»

mmPlayer.Command = «open»

mmPlayer.Command = «play»

Else

mmPlayer.Command = «stop»

End If

End Sub

Private Sub cmdExit_Click ()

End

End Sub

Private Sub cmdHim_Click ()

frmHim.Show

frmMain.Hide

End Sub

Private Sub cmdInfo_Click ()

frmInfo.Show

frmMain.Enabled = False

End Sub

Private Sub cmdInform_Click ()

frmInform.Show

frmMain.Hide

End Sub

Private Sub cmdMath_Click ()

frmMath.Show

frmMain.Hide

End Sub

Аванесов B.C. Научные проблемы тестового контроля знаний. М., Учебный центр при исследовательском центре проблем качества подготовки специалистов, 2004

Беспалько В. П. Педагогика и прогрессивные технологии обучения. — М.:Проект, 2005, стр. 117

Беспалько В. П. Педагогика и прогрессивные технологии обучения. — М.: Прогресс 2005, стр. 129−133

Васильев В.И., Тягунова Т. Н. Теория и практика формирования програмно-дидактических тестов. — М., МГУЭС и И, 2001.

Майоров А. Н. Теория и практика создания тестов для системы образования. — М.: Интеллект-Центр, 2007

Батаршева А. В. Тестирование. — М. «Дело», 2003, стр. 28−29

См. там же, стр. 77

Батаршева А. В. Тестирование. — М. «Дело», 2003, стр. 98

Аванесов B.C. Научные проблемы тестового контроля знаний. М., Учебный центр при исследовательском центре проблем качества подготовки специалистов, 2004

Христочевский С.А. «Информационные и коммуникационные технологии в образовании» //"Информатика и образование" // № 2 — 2006 г.

Новиков С.В. «Принципы разработки Интернет учебников» // «Информатика и образование» № 10 — 2005 г.

Казаринов А.С., Култышева А. Ю., Мирошниченко А. А. Технология адаптивной валидности тестовых заданий: Учебное пособие. Глазов: ГГПИ, 2002, стр. 107

Челышкова М. Б. Разработка педагогических тестов на основе современных математических моделей: Уч.пособие. М.: Исследовательский центр проблем качества подготовки специалистов, 2003, стр. 88−91

Челышкова М. Б. Разработка педагогических тестов на основе современных математических моделей: Уч.пособие. М.: Исследовательский центр проблем качества подготовки специалистов, 2003, стр. 109−111

Моисеев В.Б., Усманов В. В., Таранцева К. Р., Пятирублевый Л. Г. «Оценивание результатов тестирования на основе экспертно-аналитических методов». Журнал «Открытое образование», № 3, 2001, с.32−36

Челышкова М. Б. Теория и практика конструирования педагогических тестов: Учебное пособие. М.: Логос, 2002. 432 с., стр. 202−208

Рудинский Е. В. Рреализация алгоритмов прямого тестирования в интеллектуальной автоматизированной системе контроля знаний. Сборник материалов конференции «Анализ качества образования и тестирование». 22.

03.2001, Москва, МО РФ, МЭСИ, 2001

Марутин Н.П., Основы программирования в среде Visual Basic, СПб, BHV, 2005, стр. 30−31

Марутин Н.П., Основы программирования в среде Visual Basic, СПб, BHV, 2005, стр. 64−65

Носов П.А., Текстовые базы данных в VB, Byte, 2006, № 7

API-функции в Visual Basic: типовые решения, М., Базы данных, № 2, 2007

Быстрова Н.Н., Классы в Visual Basic и их использование, VB Rewiev, М., 2004, № 11

Входные тексты

«Черный ящик»

Личностная модель знаний

Экспертная модель знаний