Реферат Програмне забезпечення роботи компанії на прикладі "ТОВ Система ПК"

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 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...