Как использовать Visual Basic для создания теста с множественным выбором

Содержание

• направления

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

направления

Используйте Visual Basic для создания собственного шоу вопросов и ответов (Хорошо, не хорошо изображение от ipal с Fotolia.com)

1. Откройте новый проект Visual Basic. Добавьте две метки, три переключателя и два элемента управления кнопки в форму. Перетащите две метки вверх, чтобы Label1 находился сверху Label2. Перетащите RadioButton1, RadioButton2 и RadioButton3 и выровняйте их вертикально под метками. Перетащите две кнопки под «радио» кнопками с Button1 слева и Button2 справа.

2. Нажмите F7, чтобы открыть окно кода. Введите следующий код на уровне класса:

   Дим вопросы (2, 4) As String Dim ответы (2) As String Dim NumPerg As Integer

   Первая строка создает двумерный массив. Первое измерение используется для каждого вопроса, а второе - для самого вопроса, трех вариантов ответа и правильного ответа. Вторая строка создает массив для хранения пользовательских ответов. Третий создает переменную count, которая задает вопрос о том, что задал пользователь.

   
   

3. Введите следующий код:

   Private Sub Get Questions () questions = Новая строка (,) {{"Сколько цветов у радуги?", "5", "6", "7", "7" {«Кто снимался в« Пиратах Карибского моря »?», «Джонни Депп», «Джон Малкович», «Джон Кьюсак», «Джонни Депп» {"Какая столица Флорида?", "Майами", "Таллахасси", "Джексонвилл", "Таллахасси"}} End Sub

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

4. Введите следующий код:

   Private Sub Evaluate Test () Dim puntuacao As Integer = 0 Для i = 0 to 2 Если ответы (i) = вопросы (i, 4), то оценка = 1 End If Next Label1.Text = "Тест окончен!" Label2.Text = "Вы нажали" & "& answers.Length & &" grid & "questions!" RadioButton1.Enabled = False RadioButton2.Enabled = False RadioButton3.Enabled = False Button1.Enabled = False Button2.Enabled = False End Sub

   
   

   Первая строка объявляет подпрограмму, которая оценивает тест. Он создает локальную переменную для поддержания оценки, а затем просматривает вопросы в своем массиве и ответы, отправленные пользователем. За каждый ответ, который он дает, счет увеличивается на 1. Наконец, он показывает пунктуацию и деактивирует остальные элементы управления.

5. Откройте подпрограмму Form1_Load () и введите следующий код:

   Me.Text = "Мой тест с несколькими вариантами ответов!" GetPerFacts () NumPerg = 1 Label1.Text = "Вопрос" & QuesNum & "of" & answers.Length Label2.Text = Вопросы (0, 0) Button1.Text = "Предыдущий" Button2.Text = "Следующий" RadioButton1.Text = Вопросы (0, 1) RadioButton2.Text = Вопросы (0, 2) RadioButton3.Text = Вопросы (0, 3)

   Первая строка определяет текст в строке заголовка. Следующие вызовы подпрограммы получают Вопросы (). Третий инициализирует счетчик вопросов. Четвертый показывает, в каком вопросе находится пользователь. Пятый показывает первый вопрос на этикетке. Шестое и седьмое меняют текст для двух кнопок. Последние три строки вводят три варианта в виде текста для трех переключателей.

6. Откройте подпрограмму Button1_Click () и введите следующий код

   Если numPerg> 1, то numPerg - = 1 Label1.Text = "Question" & quesNum & "3" Label2.Text = Вопросы (numPerg - 1, 0) RadioButton1.Text = Вопросы (numPerg - 1, 1) RadioButton2.Text = questions (numPerg - 1, 2) RadioButton3.Text = questions (numPerg - 1, 3) If Button2.Text = "Send" Then Button2.Text = "Next" End If End End If

   Это код для кнопки «Предыдущий». Сначала проверяется, нажал ли пользователь кнопку во время первого вопроса. Если нет, он вычитает счетчик вопросов из 1 и изменяет текст меток и переключателей, чтобы показать предыдущий вопрос. Если пользователь был в последнем вопросе, текст в Button2 изменится с «Отправить» на «Далее».

7. Откройте функцию Button2_Click () и введите следующий код:

   If RadioButton1.Checked = True Затем отвечает (numPerg - 1) = RadioButton1.Text ElseIf RadioButton2.Checked = True Затем отвечает (numPerg - 1) = RadioButton2.Text ElseIf RadioButton3.Checked = True Затем отвечает (numPerg - 1) = Radio Конец текста, если RadioButton1.Focus () Если numPerg <3, то numPerg + = 1 Label1.Text = "Question" & quesNum & "of" & answers.Length Label2.Text = Вопросы (numPerg - 1, 0) RadioButton1.Text = (numPerg - 1, 1) RadioButton2.Text = questions (numPerg - 1, 2) RadioButton3.Text = questions (numPerg - 1, 3) Если numPerg = 3, то Button2.Text = "Отправить" End If Else EvaluateTest Конец, если

   Это код для кнопки «Далее». Первые семь строк проверяют, какой переключатель выбран пользователем, и сохраняют ответ в массиве ответов. Следующая строка меняет фокус выделения на RadioButton1. Следующая строка проверяет, нет ли у пользователя последнего вопроса. Если это не так, подпрограмма увеличивает значение переменной counter до единицы и заполняет метки радиосвязи и кнопки информацией из следующего вопроса. Если это так, он изменяет текст с кнопки «Далее» на «Отправить». Если пользователь уже задал последний вопрос и нажал «Отправить», программа вызывает подпрограмму «Оценить тест» для получения оценки.

8. Сохраните вашу программу VisualBasic. Нажмите F5, чтобы запустить его.