Конструктор тестов excel скачать

Программа для создания тестов.

Количество ответов к вопросу не ограничено. Параллельно в Экселе генерируется матрица Вариант-> номер вопроса -> номер правильного ответа. Формат записи вопросов ответов в Excel показан на Рисунке: То есть, в первом столбце - напротив правильного ответа крестик (любой символ); во втором столбце - номер вопроса, можно не по порядку; в третьем - текст вопроса; в четвертом - номер варианта ответа (можно и цифры и буквы); в пятом - тексты ответов. Ниже приведен код программы, его нужно скопировать и вставить в макросы Excel. Но лучше, чтобы сразу стало все ясно - загрузить файл с примером Скачать конструктор тестов. ' макрос генерации тестов в Word-е из Excel-я.

' сделано в Апшеронске. Dim test_count As Integer 'количество тестов. Dim quest_count As Integer ' количество вопросов в тесте. Dim max_quest As Integer ' общее количество вопросов на листе. Dim list As String ' название листа в Экселе откуда брать вопросы.

Worksheets ("AI"). Activate ' активируем ли ст с вх одными и выходными данными. ActiveCell.SpecialCells ( xlLastCell ).Select. 'Worksheets( "0").Cells(2, 1).Value = "x" Set WRD = CreateObject ( " Word.Application ") WRD.Documents.Open "C:\test.doc" ' Путь к файлу формата Microsoft Word, в который формировать варианты тестов. test_count = 24 ' (здесь задаем количество вариантов) quest_count = 5 ' (здесь задаем количество вопросов в тесте) max_quest = 120 ' (номер максимального номера вопроса (второй столбей )) For i = 0 To test_count Step 1 ' цикл по количеству тестов.

WRD.Selection.TypeText Text := " Вариант #" + CStr ( i ) ' Ответы в Эксель. Worksheets( "0").Cells(sea, 1).Value = " Вариант " + CStr ( i ) For j = 1 To quest_count Step 1 ' цикл по количеству вопросов в тесте. num = Int ( Rnd * max_quest ) + 1. ' цикл по столбцу В , чтобы найти выбранный номер вопроса. For z = 1 To MaxString Step 1. If ( Int ( Cells(z, 2).Value) = num) Then.

' MsgBox ( Cells( z, 3).Value) Exit For ' вышли, запомнив z. ' в ыводим в Word , если найден вопрос. str1 = "Номер вопроса не найден: " + CStr ( num ) MsgBox (str1) ' не найденный номер. WRD.Selection.TypeText Text := " Вопрос #" + CStr (j) WRD.Selection.TypeText Text := Trim(Cells( tmp , 3).Value) ' теперь цикл по количеству вариантов ответа. For k = 1 To 4 Step 1 ' дело в том, что количество ответов может быть 2, 3 или 4.

If ( Int ( Cells( tmp + k, 2).Value) = 0) Then. WRD.Selection.TypeText Text := Trim(Cells( tmp + k, 4).Value) + ". " + Trim(Cells( tmp + k, 5).Value) ' Ответы в Эксель. If Len( Cells( tmp + k, 1).Value) <> 0 Then.