Public Class Form1
    Dim n, sb, s, i, pv, ni, tp As Integer


    Private Sub ВідкритиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВідкритиToolStripMenuItem.Click

        OpenFileDialog1.Filter = "txt|*.txt"
        OpenFileDialog1.Title = "Виберіть тест"
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
            ПочатокToolStripMenuItem_Click(sender, e)
        End If




    End Sub

    Private Sub ПочатокToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПочатокToolStripMenuItem.Click
        n = System.Convert.ToInt16(RichTextBox1.Lines(0))
        ni = 1
        i = 1
        s = 0
        Button1_Click(sender, e)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (i <= n) Then
            ' Перевірка відповідей

            label3.Text = ""
            If (CheckBox1.Checked) Then label3.Text = label3.Text + "1" Else label3.Text = label3.Text + "0"
            If (CheckBox2.Checked) Then label3.Text = label3.Text + "1" Else label3.Text = label3.Text + "0"
            If (CheckBox3.Checked) Then label3.Text = label3.Text + "1" Else label3.Text = label3.Text + "0"
            If (pv = System.Convert.ToInt32(label3.Text)) Then s = s + sb
            CheckBox1.Checked = False
            CheckBox2.Checked = False
            CheckBox3.Checked = False
            ''''''''
            If (RadioButton1.Checked And pv = 1) Then s = s + sb
            If (RadioButton2.Checked And pv = 2) Then s = s + sb
            If (RadioButton3.Checked And pv = 3) Then s = s + sb
            RadioButton1.Checked = False
            RadioButton2.Checked = False
            RadioButton3.Checked = False
            ''''''''''''''
            label3.Text = ""
            label3.Text = label3.Text + Convert.ToString(ComboBox1.SelectedIndex + 1)
            label3.Text = label3.Text + Convert.ToString(ComboBox2.SelectedIndex + 1)
            label3.Text = label3.Text + Convert.ToString(ComboBox3.SelectedIndex + 1)
            If (pv.ToString() = label3.Text) Then s = s + sb
            '''''''''

            ''''''''''''
            If (label3.Text = TextBox2.Text) Then s = s + sb
            TextBox2.Clear()


            '''''''''/

            TextBox1.Visible = False
            PictureBox1.Visible = False
            PictureBox2.Visible = False
            PictureBox3.Visible = False
            CheckBox1.Visible = False
            CheckBox2.Visible = False
            CheckBox3.Visible = False
            RadioButton1.Visible = False
            RadioButton2.Visible = False
            RadioButton3.Visible = False
            Button1.Visible = False
            ComboBox1.Visible = False
            ComboBox2.Visible = False
            ComboBox3.Visible = False
            TextBox2.Visible = False

            tp = System.Convert.ToInt16(RichTextBox1.Lines(ni))

            ni = ni + 1



            ' тип 1


            If (tp = 1) Then

                TextBox1.Visible = True
                PictureBox1.Visible = True
                RadioButton1.Visible = True
                RadioButton2.Visible = True
                RadioButton3.Visible = True
                Button1.Visible = True

                TextBox1.Text = RichTextBox1.Lines(ni)
                ni = ni + 1
                PictureBox1.Load(RichTextBox1.Lines(ni))
                ni = ni + 1
                RadioButton1.Text = RichTextBox1.Lines(ni)
                ni = ni + 1
                RadioButton2.Text = RichTextBox1.Lines(ni)
                ni = ni + 1
                RadioButton3.Text = RichTextBox1.Lines(ni)
                ni = ni + 1


                pv = System.Convert.ToInt16(RichTextBox1.Lines(ni))
                ni = ni + 1
                sb = System.Convert.ToInt16(RichTextBox1.Lines(ni))
                ni = ni + 1
                i = i + 1
            End If


            ' тип 2
            If (tp = 2) Then

                TextBox1.Visible = True
                PictureBox1.Visible = True
                PictureBox2.Visible = True
                PictureBox3.Visible = True
                CheckBox1.Visible = True
                CheckBox2.Visible = True
                CheckBox3.Visible = True
                Button1.Visible = True

                TextBox1.Text = RichTextBox1.Lines(ni)
                ni = ni + 1
                PictureBox1.Load(RichTextBox1.Lines(ni))
                ni = ni + 1
                CheckBox1.Text = RichTextBox1.Lines(ni)
                ni = ni + 1
                CheckBox2.Text = RichTextBox1.Lines(ni)
                ni = ni + 1
                CheckBox3.Text = RichTextBox1.Lines(ni)
                ni = ni + 1
                pv = System.Convert.ToInt32(RichTextBox1.Lines(ni))
                ni = ni + 1
                sb = System.Convert.ToInt16(RichTextBox1.Lines(ni))
                ni = ni + 1
                i = i + 1
            End If
            ' тип 3
            If (tp = 3) Then
                TextBox1.Visible = True
                PictureBox1.Visible = True
                PictureBox2.Visible = True
                PictureBox3.Visible = True
                Button1.Visible = True
                ComboBox1.Visible = True
                ComboBox2.Visible = True
                ComboBox3.Visible = True


                TextBox1.Text = RichTextBox1.Lines(ni)
                ni = ni + 1
                PictureBox1.Load(RichTextBox1.Lines(ni))
                ni = ni + 1
                PictureBox2.Load(RichTextBox1.Lines(ni))
                ni = ni + 1
                PictureBox3.Load(RichTextBox1.Lines(ni))
                ni = ni + 1
                ComboBox1.Items(0) = RichTextBox1.Lines(ni)
                ComboBox2.Items(0) = RichTextBox1.Lines(ni)
                ComboBox3.Items(0) = RichTextBox1.Lines(ni)
                ni = ni + 1
                ComboBox1.Items(1) = RichTextBox1.Lines(ni)
                ComboBox2.Items(1) = RichTextBox1.Lines(ni)
                ComboBox3.Items(1) = RichTextBox1.Lines(ni)
                ni = ni + 1
                ComboBox1.Items(2) = RichTextBox1.Lines(ni)
                ComboBox2.Items(2) = RichTextBox1.Lines(ni)
                ComboBox3.Items(2) = RichTextBox1.Lines(ni)
                ni = ni + 1
                pv = System.Convert.ToInt32(RichTextBox1.Lines(ni))
                ni = ni + 1
                sb = System.Convert.ToInt16(RichTextBox1.Lines(ni))
                ni = ni + 1
                i = i + 1

            End If

            ' тип 4
            If (tp = 4) Then

                TextBox1.Visible = True
                PictureBox1.Visible = True
                TextBox2.Visible = True
                Button1.Visible = True

                TextBox1.Text = RichTextBox1.Lines(ni)
                ni = ni + 1
                PictureBox1.Load(RichTextBox1.Lines(ni))
                ni = ni + 1
                Label3.Text = RichTextBox1.Lines(ni)
                ni = ni + 1

                sb = System.Convert.ToInt16(RichTextBox1.Lines(ni))
                ni = ni + 1
                i = i + 1

            End If




        Else
            Label2.Text = s.ToString()

            ' Перевірка відповідей
            ''''''''/
            label3.Text = ""
            If (CheckBox1.Checked) Then label3.Text = label3.Text + "1" Else label3.Text = label3.Text + "0"
            If (CheckBox2.Checked) Then label3.Text = label3.Text + "1" Else label3.Text = label3.Text + "0"
            If (CheckBox3.Checked) Then label3.Text = label3.Text + "1" Else label3.Text = label3.Text + "0"
            If (pv = System.Convert.ToInt32(label3.Text)) Then s = s + sb
            CheckBox1.Checked = False
            CheckBox2.Checked = False
            CheckBox3.Checked = False
            ''''''''
            If (RadioButton1.Checked And pv = 1) Then s = s + sb
            If (RadioButton2.Checked And pv = 2) Then s = s + sb
            If (RadioButton3.Checked And pv = 3) Then s = s + sb
            RadioButton1.Checked = False
            RadioButton2.Checked = False
            RadioButton3.Checked = False
            ''''''''''''''
            label3.Text = ""
            label3.Text = label3.Text + Convert.ToString(ComboBox1.SelectedIndex + 1)
            label3.Text = label3.Text + Convert.ToString(ComboBox2.SelectedIndex + 1)
            label3.Text = label3.Text + Convert.ToString(ComboBox3.SelectedIndex + 1)
            If (pv.ToString() = label3.Text) Then s = s + sb
            ''''''''''''
            If (label3.Text = TextBox2.Text) Then s = s + sb
            TextBox2.Clear()


            '''''''''/

            TextBox1.Visible = False
            PictureBox1.Visible = False
            PictureBox2.Visible = False
            PictureBox3.Visible = False
            CheckBox1.Visible = False
            CheckBox2.Visible = False
            CheckBox3.Visible = False
            RadioButton1.Visible = False
            RadioButton2.Visible = False
            RadioButton3.Visible = False
            Button1.Visible = False
            ComboBox1.Visible = False
            ComboBox2.Visible = False
            ComboBox3.Visible = False
            TextBox2.Visible = False


            Label2.Visible = True
            Label2.Text = s.ToString()
        End If


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Visible = False
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        CheckBox1.Visible = False
        CheckBox2.Visible = False
        CheckBox3.Visible = False
        RadioButton1.Visible = False
        RadioButton2.Visible = False
        RadioButton3.Visible = False
        Button1.Visible = False
        ComboBox1.Visible = False
        ComboBox2.Visible = False
        ComboBox3.Visible = False
        TextBox2.Visible = False
        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        RichTextBox1.Visible = False

    End Sub

    Private Sub ДопомогаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ДопомогаToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub ЗакритиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗакритиToolStripMenuItem.Click
        Close()
    End Sub
End Class