Or a = 25 Or a = 33) Then = s3 + 3IfRadioButton3.Checked = True And (a = 5 Or a = 13 Or a = 17 Or a = 21 Or a = 29 Or a = 37) Then = s3 + 3IfRadioButton3.Checked = True And (a = 1 Or a = 9 Or a = 25 Or a = 33) Then = s3 + 2IfRadioButton4.Checked = True And (a = 5 Or a = 13 Or a = 17 Or a = 21 Or a = 29 Or a = 37) Then = s3 + 4IfRadioButton4.Checked = True And (a = 1 Or a = 9 Or a = 25 Or a = 33) Then = s3 + 1IfRadioButton1.Checked = True And (a = 3 Or a = 7 Or a = 11 Or a = 15 Or a = 19 Or a = 23 Or a = 27 Or a = 31 Or a = 35 Or a = 39) Then = s4 + 1IfRadioButton2.Checked = True And (a = 3 Or a = 7 Or a = 11 Or a = 15 Or a = 19 Or a = 23 Or a = 27 Or a = 31 Or a = 35 Or a = 39) Then = s4 + 2IfRadioButton3.Checked = True And (a = 3 Or a = 7 Or a = 11 Or a = 15 Or a = 19 Or a = 23 Or a = 27 Or a = 31 Or a = 35 Or a = 39) Then = s4 + 3IfRadioButton4.Checked = True And (a = 3 Or a = 7 Or a = 11 Or a = 15 Or a = 19 Or a = 23 Or a = 27 Or a = 31 Or a = 35 Or a = 39) Then
s4 = s4 + 4If
'Скидаємо натиснуту кнопку при кожному новому питанні = a + 1a = 2 Then.Text = "Мені хочеться дізнатися, зрозуміти, докопатися до суті"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 3 Then.Text = "Я розлючений". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = False
End Ifa = 4 Then.Text = "Я падаю духом, стикаючись з труднощами в навчанні"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 5 Then.Text = "Я напружений". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 6 Then.Text = "Я відчуваю цікавість". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 7 Then
Label1.Text = "Мені хочеться стукнути кулаком по столу"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 8 Then
Label1.Text = "Я намагаюся отримувати тільки добрі та відмінні оцінки"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 9 Then.Text = "Я розкутий". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 10 Then.Text = "Мені цікаво". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 11 Then.Text = "Я розсерджений ". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = False If
If a = 12 Then
Label1.Text = "Я докладаю всіх зусиль, щоб домогтися успіху в навчанні"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 13 Then
Label1.Text = "Мене хвилює можливі невдачі"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 14 Then
Label1.Text = "Мені здається, що урок ніколи не скінчиться"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 15 Then
Label1.Text = "Мені хочеться на когось, закричати"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 16 Then
Label1.Text = "Я намагаюся все робити правильно"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 17 Then
Label1.Text = "Я відчуваю себе невдахою"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 18 Then
Label1.Text = "Я відчуваю себе дослідником"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 19 Then
Label1.Text = "Мені хочеться що-небудь зламати"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 20 Then
Label1.Text = "Я відчуваю, що не впораюся із завданням"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 21 Then.Text = "Я збуджений". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 22 Then.Text = "Я енергійний". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 23 Then.Text = "Я розлючений ". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 24 Then.Text =" Я пишаюся своїми шкільними успіхами ". Checked = False.Checke...