гове вікно, з висновком результатів усіх пройдених раніше тестів).
Нижче приведений код програми на Visual Basic.
Form1
Class Form1a As Integerd As Integers1 As Integers2 As Integers3 As Integers4 As Integerres As Integerres1 As Stringn1 As Stringn2 As Stringn3 As Stringn4 As Stringgen As Stringlvl As StringSub Form1_Load (ByVal sender As System.Object, ByVal e As System.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 =...
