Как сделать тест в vba excel
Обновлено: 07.07.2024
Ну так и обращайтесь к контроллам другой формы
form1.Option1
form2.Option1
и т. д.
Форму скрываете и показываете следующую
Form1.Visible = False
Form2.Show
А вообще-то ГА правильно говорит.
Текст храните в массиве
Option тоже лучше в массив поставить и опрашивать в цикле
> Я сделал 11 форм
А если у тебя тест будет состоять из 100 вопросов, ты сделаешь 101 форму?
По нажатию кнопки "Далее" заменяешь текст на label'aх вопроса и вариантов ответа и т. д. Короче, придумать можно что-нть нормальное, но никак не 11 форм же!
Создаешь структуру (пользовательский тип данных)
Структура примерно такого типа
Type MyStructura
Вопрос As String
Ответ1 As String
Ответ2 As String
Ответ3 As String
Номер_ответа_пользователя As Integer
Номер_правильного_ответа As Integer
End Type
Создаешь массив Dim MyArray As MyStructura ' [ твоя структура ]
Заполняешь масив вопросами, ответами и номерами правильного ответа.
Затем по нажатию кнопки выводишь первый вопрос и ответы на экран,
очищаешь радикнопки выбора ответа
Пользователь выбирает ответ в радиокнопках, нажимает кнопку "Далее".
В цикле перебираешь radiobutton и
записываешь номер ответа в массив, выводишь следующий вопрос и ответы.
По окончании теста перебираешь в цикле массив и считаешь правильные ответы и неправильные.
Этот учебник описывает пошаговую процедуру по созданию примера решения для изучения концепций модульного тестирования. Если при изучении учебника вы предпочитаете использовать готовое решение, просмотрите или скачайте пример кода перед началом работы. Инструкции по загрузке см. в разделе Просмотр и скачивание примеров.
Создание исходного проекта
Откройте окно оболочки. Создайте каталог с именем unit-testing-vb-mstest для хранения решения. В этом каталоге выполните команду выполните команду dotnet new sln , чтобы создать решение. Этот метод упрощает управление библиотекой классов и проектом модульного теста. В каталоге решения создайте каталог PrimeService. На данный момент структура каталогов и файлов выглядит следующим образом:
Перейдите в каталог PrimeService и выполните команду dotnet new classlib -lang VB , чтобы создать исходный проект. Переименуйте Class1.VB в PrimeService.VB. Создайте сбойную реализацию класса PrimeService :
Вернитесь в каталог unit-testing-vb-using-mstest. Чтобы добавить проект библиотеки классов в решение, выполните команду dotnet sln add .\PrimeService\PrimeService.vbproj .
Создание тестового проекта
Затем создайте каталог PrimeService.Tests. Ниже представлена структура каталогов:
Перейдите в каталог PrimeService.Tests и создайте проект с помощью dotnet new mstest -lang VB . Эта команда создает тестовый проект, использующий MSTest в качестве библиотеки тестов. Созданный шаблон настраивает средство выполнения тестов в файле PrimeServiceTests.vbproj:
Тестовый проект требует других пакетов для создания и выполнения модульных тестов. Команда dotnet new на предыдущем шаге добавила MSTest и средство выполнения тестов MSTest. Теперь добавьте в проект библиотеку классов PrimeService в качестве еще одной зависимости. Используйте команду dotnet add reference :
Все содержимое файла можно просмотреть в репозитории образцов на сайте GitHub.
Ниже показан окончательный макет решения:
Создание первого теста
Напишите один тест сбоя теста, запустите его, а затем повторите этот процесс. Удалите файл UnitTest1.vb из каталога PrimeService.Tests и создайте файл Visual Basic с именем PrimeService_IsPrimeShould.VB. Добавьте следующий код:
Атрибут указывает класс, который содержит тесты. Атрибут обозначает метод, который выполняется с помощью средства выполнения тестов. Из каталога unit-testing-vb-mstest выполните команду dotnet test для создания тестов и библиотеки классов, а затем выполните тесты. Средство запуска тестов MSTest содержит точку входа в программу для выполнения тестов. dotnet test запускает средство выполнения тестов с помощью проекта модульного теста, который вы создали.
Тест не будет пройден. Вы еще не создали реализацию. Чтобы тест был пройден, напишите простейший код в классе PrimeService , который работает:
Выполните команду dotnet test еще раз в каталоге unit-testing-vb-mstest. Команда dotnet test запускает сборку для проекта PrimeService и затем для проекта PrimeService.Tests . После сборки обоих проектов она запускает этот отдельный тест. Он выполняется.
Добавление дополнительных возможностей
Теперь, когда тест проходит успешно, пора создать дополнительные тесты. Есть еще ряд элементарных случаев с простыми числами: 0, -1. Можно добавить их в качестве тестов с помощью атрибута , но это скоро станет утомительным. Есть другие атрибуты MSTest, которые позволяют создавать наборы похожих тестов. Атрибут представляет набор тестов, которые выполняют один и тот же код, но имеют разные входные аргументы. С помощью атрибута можно указать значения для этих входных аргументов.
Вместо того чтобы создавать новые тесты, используйте эти два атрибута, чтобы создать единый алгоритм, который проверяет несколько значений меньше 2, то есть наименьшего простого числа:
Выполните команду dotnet test , и два из этих тестов завершаются ошибкой. Для успешного выполнения всех тестов нужно изменить предложение if в начале метода:
Продолжайте итерации, добавляя тесты, алгоритмы и код в главной библиотеке. В результате вы получите готовую версию тестов и полную реализацию библиотеки.
Вы создали небольшую библиотеку и набор модульных тестов для нее. Вы структурировали решение, чтобы сделать добавление новых пакетов и тестов частью обычного рабочего процесса и получить возможность сосредоточиться на задачах приложения.
Коммуникативный педагогический тренинг: способы взаимодействия с разными категориями учащихся
Сертификат и скидка на обучение каждому участнику
Выберите документ из архива для просмотра:
Методическая копилка учителя информатики.url
Выбранный для просмотра документ Автор.doc
Автор 1: Дубровская Екатерина Владимировна,
Должность: преподаватель информатики
Образовательное учреждение: ГБОУ СПО Педагогический колледж №1 им. Н.А. Некрасова Санкт-Петербурга
г. Санкт-Петербург Московский район
Автор 2: Дубровская Светлана Алексеевна
Должность: преподаватель информатики
Образовательное учреждение: ГБОУ СПО Педагогический колледж №1 им. Н.А. Некрасова Санкт-Петербурга
г. Санкт-Петербург Московский район
Выбранный для просмотра документ Аннотация.doc
Цель разработки методического пособия – представить алгоритм создания простых тестов в среде Visual Basic for Applications и MS Office .
Предназначено для студентов педагогического колледжа.
Ключевые слова : информатика, создание тестов в PowerPoint.
Выбранный для просмотра документ Методическое пособие Разработка тестов в среде VBA и MS PowerPoint.doc
ПЕДАГОГИЧЕСКИЙ КОЛЛЕДЖ №1 ИМ. Н.А. НЕКРАСОВА САНКТ-ПЕТЕРБУРГА
Методическое пособие
Разработка тестов в среде VBA и MS PowerPoint
Разработано преподавателями
Дубровской Е.В.
Дубровской С.А.
Санкт-Петербург
Простые контролирующие программы можно разрабатывать в среде Visual Basic for Applications и MS Office . Программирование в этой среде не является сложным. Не требуется приобретение лицензионных программ для разработки тестов, например, на домашнем компьютере.
Тесты для учащихся начальной школы простые, а в программе MS PowerPoint можно создать и вывести на экран фото, картинки, схемы и т.д., это делает работу учащихся с тестами более интересной.
Цель разработки методического пособия – представить алгоритм разработки простых тестов в среде Visual Basic for Applications и MS Office .
1.1. В MS Office 2003 в меню выбрать Вид, затем Панели инструментов, далее Visual Basic .
Для работы программы (чтобы срабатывали кнопки) предварительно в PowerPoint необходимо установить Низкий уровень безопасности (в меню Сервис выберите команду Макрос и подкоманду Безопасность или нажмите кнопку Безопасность на панели Visual Basic , затем выберите низкий уровень безопасности).
1.2. В MS Office 2010 в меню вывести пункт Разработчик следующим образом: выбрать в меню Файл, затем Параметры, далее Настройка ленты, далее в правом окне установить флажок у вкладки Разработчик.
В меню появится пункт Разработчик.
Для работы программы (чтобы срабатывали кнопки) предварительно необходимо включить выполнение макросов: выбрать в меню пункт Разработчик, далее на вкладке выбрать Безопасность макросов, далее выбрать Включить все макросы.
Контролирующие программы для самопроверки в PowerPoint
• На вкладке Разработчик в группе Элементы управления включить Режим конструктора
• Разместить на слайде текст вопроса: можно просто набрать текст в PowerPoint как обычно
• Поместить на слайде элементы управления – Кнопки для вывода вариантов ответа
• Из контекстного меню Кнопки выбрать Свойства, ввести текст варианта ответа.
• Двойным щелчком по кнопке переходим в окно написания кода подпрограммы
Текст программы для кнопки очень простой:
Private Sub CommandButton1_Click()
Или для кнопки с неверным ответом:
Private Sub CommandButton4_Click()
Создание теста в PowerPoint
1. Презентация состоит из титульного слайда, слайдов с вопросами и слайда с результатом выполнения теста.
2. Титульный слайд содержит информацию о названии теста, номер варианта, можно добавить рекомендации по выполнению теста.
3. Создание слайда вопроса.
• На вкладке Разработчик в группе Элементы управления включить Режим конструктора
• Разместить на слайде текст вопроса, можно просто набрать текст в PowerPoint как обычно
• Ниже поместить на слайде элементы управления – Переключатель или Флажок для вывода вариантов ответа. Если используем переключатели, то возможен выбор одного верного варианта ответа из предложенных. Если используем флажки, возможен выбор нескольких вариантов.
• Поместить элемент управления Кнопку для перехода на следующий слайд
Настройка Свойств Переключателя
• Из контекстного меню Переключателя или Флажка выбрать Свойства.
• Выберите свойство Caption, введите текст первого варианта ответа.
• Свойство BackColor - цвет фона,
• Свойство ForeColor - цвет текста,
• Свойство Font – размер шрифта.
Настройка Свойств Кнопки
• Измените свойства Кнопки Caption - введите Следующий вопрос.
• С помощью свойств ForeColor и Font настройте цвет и размер шрифта.
• Двойным щелчком по кнопке переходим в окно написания текста подпрограммы
Подпрограмма для кнопки, если ответы вводятся с помощью переключателей
В данном примере правильный ответ 2.
Private Sub CommandButton 1_ Click ()
OptionButton1.Value = False ' всем переключателям, которые есть на слайде свойство Value (состояние) делаем False, чтобы при возврате на слайд из ответа исчезла точка
OptionButton3.Value = False
SlideShowWindows(1).View.Next ' переходим на следующий слайд
Подпрограмма для кнопки, если ответы вводятся с помощью флажков
В данном примере правильные ответы 2 и 3.
If CheckBox1 .Value = False and CheckBox2 .Value =True and CheckBox3 .Value = True Then b=b+1
CheckBox 1 . Value = False ' всем флажкам, которые есть на слайде свойство Value (состояние) делаем False, чтобы при возврате на слайд из ответа исчезла галочка
CheckBox 2 . Value . Value = False
CheckBox 3 . Value . Value = False
SlideShowWindows (1). View . Next 'переходим на следующий слайд
• Комментарии писать не надо. Это просто пояснения, для чего используются данные команды в подпрограмме.
• Переменная b должна быть объявлена как глобальная , чтобы могла быть использована в подпрограммах всех слайдов (для увеличения количества баллов). Для этого в окне VBA надо добавить модуль в среде: Insert – Module (выбрать в меню Insert, затем Module) и в окне кода модуля написать код:
Public b as Integer
• Исправьте номер переключателя или флажка в условии оператора If, чтобы он соответствовал правильному ответу и, если нужно, свойство флажка False (не помечен галочкой) или True (помечен галочкой).
4. Создание слайда с результатами теста.
• На последнем слайде разместить элементы Надпись и Кнопку.
• Поясняющий текст, например, "оценка" или "количество баллов" можно набрать средствами PowerPoint
Private Sub CommandButton1_Click()
Label1.Caption = b
Список литературы
1. В.А. Биллиг, Средства разработки VBA – программиста. Офисное программирование. Том 1. – Москва: Издательско-торговый дом "Русская редакция", 2001 г., 480с.
2. А. Гарнаев, Самоучитель VBA . – Санкт-Петербург, Издательство БХВ–Санкт-Петербург, 1999. – 512с.
Выбранный для просмотра документ ‚ ¦®!.txt
Данный материал был скачан с сайта www . metod - kopilka . ru
. Орфография и форматирование автора материала.
Образовательно-информационный ресурс для учителей информатики,
учащихся и всех-всех, кто интересуется ИТ:
Организационные, методические и нормативные документы,
лабораторно-практические работы (комплекс занятий по MS Word, MS Excel,
MS Access, MS PowerPaint, Paint, Move Maker и др. прикладным программам),
лекции,конспекты, дидактический материал, занимательная информатика,
экзамен, проектная деятельность, презентации.
Все в свободном доступе! Без регистрации!
Краткое описание документа:
- подготовка к ЕГЭ/ОГЭ и ВПР
- по всем предметам 1-11 классов
Курс повышения квалификации
Дистанционное обучение как современный формат преподавания
- Сейчас обучается 942 человека из 79 регионов
Курс повышения квалификации
Педагогическая деятельность в контексте профессионального стандарта педагога и ФГОС
- Курс добавлен 23.11.2021
- Сейчас обучается 51 человек из 26 регионов
Курс повышения квалификации
Авторская разработка онлайн-курса
- Курс добавлен 02.12.2021
- Сейчас обучается 79 человек из 38 регионов
- ЗП до 91 000 руб.
- Гибкий график
- Удаленная работа
Дистанционные курсы для педагогов
Развитие управляющих функций мозга ребёнка: полезные советы и упражнения для педагогов
Программа курса физики содержит большой теоретический материал, включающий понятия, термины, законы и формулы. Для формирования знаний у студентов необходимо на каждом этапе изучения отслеживать и оценивать учебные достижения. Контроль знаний позволяет определять степень усвоения знаний студентами и своевременно их корректировать. Студенты получают оценку своих знаний и умений и могут сознательно строить свою познавательную деятельность. Преподаватель может сам создавать контрольно-измерительные материалы, учитывая уровень обученности и способности обучащихся. В программе Microsoft Word 2010 с помощью среды программирования Visual Basic можно создавать тесты для контроля знаний. Чтобы сделать тест, преподавателю не обязательно быть программистом. Ему достаточно понять механизм составления кодов программы в редакторе Visual Basic . В интернете много статей о создании различных тестов с помощью Visual Basic , но преподавателю физики, который не знаком с секретами программирования, порой бывает трудно понять автора статьи, так как большинство из них ориентированы на более подготовленного читателя. В этой статье содержится пошаговая инструкция для преподавателя, не владеющего знаниями и навыками программирования.
Нажмите на значок: Откроется:
Теперь следует приступить ко второй части. Нужно написать коды, без которых программа работать не будет.
Начало кода:
Private Sub CommandButton 1_ Click ()
N = N + 1 (Если выбран верный ответ, то число N увеличивается на единицу)
End If ( Конец условия )
If CheckBox14.Value = True And CheckBox111.Value = False And CheckBox121.Value = False And CheckBox131.Value = False Then ( Такой фрагмент кода пишется для всех вопросов , если их 10, то 10 раз !)
If CheckBox15.Value = True And CheckBox112.Value = False And CheckBox122.Value = False And CheckBox132.Value = False Then
If N = 10 Or N = 9 Then TextBox2.Value = 5
If N = 8 Or N = 7 Then TextBox2.Value = 4
If N = 6 Or N = 5 Then TextBox2.Value = 3
If N = 4 Or N = 3 Then TextBox2.Value = 2
If N = 2 Or N = 1 Then TextBox2.Value = 1
Пример теста:
Как изменяется внутренняя энергия идеального газа при изотермическом сжатии?
CheckBox3 Не изменяется.
CheckBox4 Ответ неоднозначен.
Какое выражение соответствует первому закону термодинамики в изохорическом процессе?
CheckBox2 ∆ U=Q
Чему равно изменение внутренней энергии газа, если ему передано количество теплоты 300 Дж, а внешние силы совершили над ним работу 500 Дж?
CheckBox2 200 Дж
CheckBox3 300 Дж.
CheckBox4 500 Дж.
CheckBox5 800 Дж.
4. Чему равна работа, совершенная газом при переходе из состояния 1 в состояние 2?
CheckBox2 10 Дж.
CheckBox2 20 Дж.
CheckBox2 30 Дж.
CheckBox2 40 Дж.
5. Состояние идеального газа изменилось в соответствии с графиками на Р-V диаграмме. В каком случае изменение внутренней энергии больше?
CheckBox2 В первом.
CheckBox2 Во втором.
CheckBox2 В обоих случаях одинаково.
CheckBox2 Ответ неоднозначен.
6. Какой из названных ниже механизмов является неотъемлемой частью любого теплового двигателя?
7. Тепловой двигатель за цикл получает от нагревателя 200 Дж и отдает холодильнику 150 Дж. Чему равен КПД двигателя?
CheckBox2 25%.
8. Чему равно максимальное значение КПД, которое может иметь тепловой двигатель с температурой нагревателя 527° С и температурой холодильника 27° С?
CheckBox2 95%
9. На диаграмме Р-V изображен термодинамический цикл. Чему равна полезная работа, совершенная газом за цикл?
CheckBox2 100 Дж
CheckBox2 200 Дж.
CheckBox2 600 Дж.
CheckBox2 300 Дж.
10. Температуру нагревателя и холодильника теплового двигателя повысили на одинаковое количество градусов ΔT . Как изменился при этом КПД двигателя?
Работу можно использовать на уроках информатики в 9-11 классах технического профиля, а также для пользователей начинающего уровня.
Microsoft Excel — программа для работы с электронными таблицами, созданная корпорацией Microsoft для Microsoft Windows, Windows NT и Mac OS. Она предоставляет возможности экономико - статистических расчетов, графические инструменты и, за исключением Excel 2008 под Mac OS X, язык макропрограммирования VBA (Visual Basic для приложений). Microsoft Excel входит в состав Microsoft Office и на сегодняшний день Excel является одним из наиболее популярных приложений в мире.
Также в Microsoft Excel можно создавать интерактивные тесты с помощью стандартных функций или макросов.
Создание интерактивных тестов в программе MS Excel.
(инструкция для изучения возможностей и применения MS Excel по созданию интерактивных тестов для учащихся старших классов)
Разработка состоит из трех разделов. В первом – основные сведения по MS Excel – даются лишь самые основные сведения по MS Excel, которые необходимо знать при создании тестов, опытным пользователям можно пропустить этот раздел. Во втором показана возможность создания интерактивного теста с помощью стандартных функций Excel, а в третьем с помощью макросов – набора команд, используемых для автоматического выполнения некоторых операций, что позволяет автоматизировать переход к следующему вопросу теста и возврат к началу теста.
Интерактивные тесты можно применять на различных этапах урока (вводный, текущий, заключительный инструктаж), на различных этапах контроля (входной, текущий, рубежный, итоговый). В моей практике тесты с удовольствием создают сами учащиеся. Наполняют ими свои курсовые проекты. Они привлекают внимание учащихся своим разнообразием, яркостью, возможностью самостоятельно создать мини программу для компьютера, которая не только считает оценку, но и будет применяться на уроках, приобретая практическую значимость для учащихся.
Для создания таких тестов не требуется специального программного обеспечения. Пакет MS Office (Excel в частности) имеется на каждом персональном компьютере. Этим объясняется доступность предлагаемой информации.
Создание интерактивных тестов не требует специальных знаний и умений. Простота изготовления тестов дает возможность пробовать свои силы как опытным, так и начинающим пользователям.
Основные сведения по MS Excel
Для создания теста необходимо знать несколько особенностей программы MS Excel, на которые имеются ссылки в данной разработке.
Перечень команд, которые управляют работой Excel, находится в основном меню (рис.1,1) Здесь Вы найдете команду Вставка, Данные, Сервис.
Пункты основного меню содержат раскрывающийся список команд, открыть который можно щелкнув левой кнопкой мыши на пункте меню. Так Вы найдете команды Проверка (пункта меню Данные), Лист (пункта меню Вставка), Макрос (пункта меню Сервис).
Каждая ячейка Excel имеет уникальный адрес, состоящий из названия столбца и строки (рис.1,2).
Столбцы таблицы Excel обозначаются латинскими буквами (рис.1,3), строки цифрами (рис.1,4). Обратите внимание, если будете вводить формулы с клавиатуры.
Формулы вводим в строку формул (рис.1,5), начиная со знака = (равенства).
Для создания фигуры к тесту воспользуемся панелью инструментов Рисование (находится в нижней части окна Excel), либо пунктом меню Вставка-Рисунок-Автофигуры
Читайте также: