.EventArgs) Handles MyBase.Load.Enabled = False.Text = "Тест з Спілбергу | Укладач: Семенов В.П"
Sub
'Перевіряємо валідацію даннихSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click = 0TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox1.Text = "Ім'я" Or TextBox2.Text = "Прізвище" Or TextBox3.Text = "Вік" Or TextBox4.Text = "Група" Or (RadioButton5.Checked = False And RadioButton6.Checked = False) Then
MsgBox ("Ви повинні ввести дані про себе.", vbOKOnly, "собщений:")
Else.Enabled = False.Enabled = False.Enabled = False.Enabled = False.Enabled = False.Enabled = False.Enabled = False.Text = "Відповідайте на питання". Enabled = False
'Визначення полаRadioButton5.Checked = True Then gen = "ж" RadioButton6.Checked = True Then gen = "м" = a + 1a = 1 Then.Text = "Я спокійний". Checked = False.Checked = False.Checked = False.Checked = FalseIfIfSub
'Забороняємо початок тесту, якщо не введені дані про себе
Private Sub RadioButton1_CheckedChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChangedTextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox1.Text = "Ім'я" Or TextBox2.Text = "Прізвище" Or TextBox3.Text = "Вік" Or TextBox4.Text = "Група" Then.Enabled = False.Enabled = True
End IfSub
'Аналогічно для інших кнопок
Private Sub RadioButton2_CheckedChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChangedTextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox1.Text = "Ім'я" Or TextBox2.Text = "Прізвище" Or TextBox3.Text = "Вік" Or TextBox4.Text = "Група" Then.Enabled = False.Enabled = TrueIfSubSub RadioButton3_CheckedChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChangedTextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox1.Text = "Ім'я" Or TextBox2.Text = "Прізвище" Or TextBox3.Text = "Вік" Or TextBox4.Text = "Група" Then . Enabled = False.Enabled = TrueIfSubSub RadioButton4_CheckedChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChangedTextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = " ; "Or TextBox4.Text =" "Or TextBox1.Text =" Ім'я "Or TextBox2.Text =" Прізвище "Or TextBox3.Text =" Вік "Or TextBox4.Text =" Група "Then. Enabled = False.Enabled = TrueIfSubSub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Розкладаємо відповіді на питання в свої категорії
If RadioButton1.Checked = True And (a = 2 Or a = 6 Or a = 10 Or a = 18 Or a = 22 Or a = 26 Or a = 34) Then
s1 = s1 + 1If
'Обрахунок "зворотних" питань
If RadioButton1.Checked = True And (a = 14 Or a = 30 Or a = 38) Then = s1 + 4IfRadioButton2.Checked = True And (a = 2 Or a = 6 Or a = 10 Or a = 18 Or a = 22 Or a = 26 Or a = 34) Then = s1 + 2IfRadioButton2.Checked = True And (a = 14 Or a = 30 Or a = 38) Then = s1 + 3IfRadioButton3.Checked = True And (a = 2 Or a = 6 Or a = 10 Or a = 18 Or a = 22 Or a = 26 Or a = 34) Then = s1 + 3IfRadioButton3.Checked = True And (a = 14 Or a = 30 Or a = 38) Then = s1 + 2IfRadioButton4.Checked = True And (a = 2 Or a = 6 Or a = 10 Or a = 18 Or a = 22 Or a = 26 Or a = 34) Then = s1 + 4IfRadioButton4.Checked = True And (a = 14 Or a = 30 Or a = 38) Then = s1 + 1IfRadioButton1.Checked = True And (a = 8 Or a = 12 Or a = 16 Or a = 24 Or a = 28 Or a = 36 Or a = 40) Then = s2 + 1IfRadioButton1.Checked = True And (a = 4 Or a = 20 Or a = 32) Then = s2 + 4IfRadioButton2.Checked = True And (a = 8 Or a = 12 Or a = 16 Or a = 24 Or a = 28 Or a = 36 Or a = 40) Then = s2 + 2IfRadioButton2.Checked = True And (a = 4 Or a = 20 Or a = 32) Then = s2 + 3IfRadioButton3.Checked = True And (a = 8 Or a = 12 Or a = 16 Or a = 24 Or a = 28 Or a = 36 Or a = 40) Then = s2 + 3IfRadioButton3.Checked = True And (a = 4 Or a = 20 Or a = 32) Then = s2 + 2IfRadioButton4.Checked = True And (a = 8 Or a = 12 Or a = 16 Or a = 24 Or a = 28 Or a = 36 Or a = 40) Then = s2 + 4IfRadioButton4.Checked = True And ( a = 4 Or a = 20 Or a = 32) Then = s2 + 1IfRadioButton1.Checked = True And (a = 5 Or a = 13 Or a = 17 Or a = 21 Or a = 29 Or a = 37) Then = s3 + 1IfRadioButton1.Checked = True And (a = 1 Or a = 9 Or a = 25 Or a = 33) Then = s3 + 4IfRadioButton2.Checked = True And (a = 5 Or a = 13 Or a = 17 Or a = 21 Or a = 29 Or a = 37) Then = s3 + 2IfRadioButton2.Checked = True And (a = 1 Or a = 9 ...
