Тест на VB

Тест на vb

В этом уроке мы разберём, как сделать тест на VB, рассмотрим условный оператор If в vb, научимся работать с элементами RadioButton.
Мы реализуем программу на vb, с помощью которой проводится тест. Вопросы теста можно поменять. Поменяв вопросы, вы можете создать свой тест.

Разработаем интерфейс программы теста

1 В Toolbox находим элемент GroupBox, размещаем три элемента GroupBox для каждого вопроса теста на форме.

2 Находим в ToolBox элементы RadioButton, и размещаем по три элемента RadioButton в каждом элементе GroupBox. Всего будет девять элементов RadioButton

3 Введем элементы Label с вопросами и кнопку Button для проверки теста. Вопросы и варианты ответов можно ставить свои. Как пример, получается такой интерфейс.

Для настройки теста необходимо записать все вопросы и варианты правильных ответов в функцию, которая отвечает за инициализацию программы. Эта функция выполняется один раз при вызове программы. Чтобы войти в эту функцию, нужно два раза нажать на форму.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

…

End Sub
В данную функцию мы можем вносить свои варианты вопросов и ответов. При загрузке приложения данная процедура выполняется первой
Переключатели RadioButton – это элементы управления, с помощью которых пользователь может выбрать только один вариант из нескольких взаимоисключающих вариантов.
Если выбирается ответ, то в круге появляется точка и свойство Checked  становится  True. Причем выбрать из группы можно только один переключатель. Все переключатели объеденены в группу GroupBox
Чтобы задать правильный ответ на каждый вопрос, создаётся объект с правильным ответом.  В процедуре Form1_Load им будут присвоены значения правильных ответов.
Dim Right1 As Object
Dim Right2 As Object
Dim Right3 As Object
Присвоим текстовым свойствам меток вопросы

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' вопросы
        Label1.Text = "1. Кто написал cказку о рыбаке и рыбке?"
        Label2.Text = "2. Как звали Президента РФ на момент 2008 года?"
        Label3.Text = "3. Кто убил Пушкина на дуэли?"

End Sub

Теперь зададим правильные ответы на каждый вопрос. Для этого присвоим объектам правильных ответов соответствующий элемент RadioButton

' правильные ответы
        Right1 = RadioButton1
        Right2 = RadioButton5
        Right3 = RadioButton9

Присвоим текстовым свойствам элементов RadioButton различные варианты ответов 

        ' ответы на первый вопрос
        RadioButton1.Text = "Александр Пушкин"
        RadioButton2.Text = "Михаил Лермонтов"
        RadioButton3.Text = "Фёдор Достоевский"
        ' ответы на второй вопрос
        RadioButton4.Text = "Владимир Путин"
        RadioButton5.Text = "Дмитрий Медведев"
        RadioButton6.Text = "Светлана Жмышенко"
        ' ответы на третий вопрос
        RadioButton7.Text = "Портос"
        RadioButton8.Text = "Арамис"
        RadioButton9.Text = "Дантес"

После того, как мы ввели все вопросы и ответы, создадим систему, проверяющую правильность введённых ответов. Проверять ответы мы будем при нажатии кнопки «Проверить».
Сам элемент RadioButton имеет свойство Checked, зависящее от того, выбрали ли мы данный элемент.
Это свойство имеет зачение True, если элемент выбран и False, если элемент не выбран. Чтобы получить свойство объекта в Vb, нужно сначала указать имя Объекта, поставить точку и название свойства.
Данная программа проверяет, выбран ли правильный ответ на первый вопрос

Dim Right1 As Object
Right1 = RadioButton1
If Right1.Checked = True Then
     Label4.Text = "Правильно."
End If
If Right1.Checked = False Then
     Label4.Text = "Неправильно."
End If

Напишем такую же проверку для каждого вопроса
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Right1.Checked = True Then
            Label4.Text = "Правильно."
        End If
        If Right1.Checked = False Then
            Label4.Text = "Неправильно."
        End If

        If Right2.Checked = True Then
            Label5.Text = "Правильно."
        End If

        If Right2.Checked = False Then
            Label5.Text = "Неправильно."
        End If

        If Right3.Checked = True Then
            Label6.Text = "Правильно."
        End If

        If Right3.Checked = False Then
            Label6.Text = "Неправильно."
        End If

    End Sub

Полная версия программы тест на vb

Public Class Form1
    Dim Right1 As Object
    Dim Right2 As Object
    Dim Right3 As Object

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' вопросы
        Label1.Text = "1. Кто написал cказку о рыбаке и рыбке?"
        Label2.Text = "2. Как звали Президента РФ на момент 2008 года?"
        Label3.Text = "3. Кто убил Пушкина на дуэли?"
        ' правильные ответы
        Right1 = RadioButton1
        Right2 = RadioButton5
        Right3 = RadioButton9
        ' ответы на первый вопрос
        RadioButton1.Text = "Александр Пушкин"
        RadioButton2.Text = "Михаил Лермонтов"
        RadioButton3.Text = "Фёдор Достоевский"
        ' ответы на второй вопрос
        RadioButton4.Text = "Владимир Путин"
        RadioButton5.Text = "Дмитрий Медведев"
        RadioButton6.Text = "Светлана Жмышенко"
        ' ответы на третий вопрос
        RadioButton7.Text = "Портос"
        RadioButton8.Text = "Арамис"
        RadioButton9.Text = "Дантес"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Right1.Checked = True Then
            Label4.Text = "Правильно."
        End If

        If Right1.Checked = False Then
            Label4.Text = "Неправильно."
        End If

        If Right2.Checked = True Then
            Label5.Text = "Правильно."
        End If

        If Right2.Checked = False Then
            Label5.Text = "Неправильно."
        End If

        If Right3.Checked = True Then
            Label6.Text = "Правильно."
        End If

        If Right3.Checked = False Then
            Label6.Text = "Неправильно."
        End If
    End Sub

End Class

Перейти к содержанию

Полезно почитать по теме условия в vb

Условия в Vb

Поделиться: