d = False.Checked = False.Checked = False.Enabled = False
End Ifa = 25 Then.Text = "Я відчуваю себе абсолютно вільно"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 26 Then
Label1.Text = "Я відчуваю, що у мене добре працює голова"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 27 Then.Text = "Я роздратований". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 28 Then.Text = "Я вирішую найважчі завдання". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 29 Then
Label1.Text = "Мені не вистачає впевненості в собі"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 30 Then.Text = "Мені нудно". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 31 Then.Text = "Мені хочеться що-небудь зламати". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 32 Then.Text = "Я намагаюся не отримати двійку". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 33 Then.Text = "Я урівноважений". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 34 Then
Label1.Text = "Мені подобатися думати, вирішувати"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 35 Then
Label1.Text = "Я відчуваю себе обдуреним"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 36 Then
Label1.Text = "Я прагну показати свої здібності і розум"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 37 Then.Text = "Я боюся". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 38 Then.Text = "Я відчуваю смуток і тугу". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 39 Then
Label1.Text = "Мене багато що приводить в лють"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 40 Then
Label1.Text = "Я хочу бути серед кращих"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 41 Then.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = TrueIfa = 41 Then
res = s1 + s2 - s3 - s4
'Висновок і запис результату в сховище
If res> = 40 And res <= 60 Then ("Пізнавальна активність:" & s1 & "(" & n1 & ")" & ; vbCrLf &
"Мотивація досягнення:" & s2 & "(" & n2 & ")" & vbCrLf &
"Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf &
"Гнів:" & s4 & "(" & n4 & ")" & vbCrLf &
"У результаті:" & res & "Рівень I" & vbCrLf &
"Висновок:" & vbCrLf &
"Продуктивна мотивація з вираженим переважанням позновательной мотивації навчання і позитивним емоційним ставленням до нього" & vbCrLf &,. OkOnly, Title: = "Результат тесту"). Computer.FileSystem.WriteAllText ( CurDir () + "/ bd /" + TextBox4.Text + "_" + TextBox1.Text + "_" + TextBox2.Text + "_" + TextBox3.Text + ". txt", " ; Пізнавальна активність: "& s1 &" ("& n1 &") "& vbCrLf &" Мотивація досягнення: "& s2 &" ("& n2 & ")" & vbCrLf & "Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf & "Гнів:" & s4 & "(" & n4 & ")" & vbCrLf & "У результаті:" & res & vbCrLf & "Висновок:" & vbCrLf & ; "Продуктивна мотивація з вираженим переважанням позновательной мотивації навчання і позитивним емоційним ставленням до нього", True)
End Ifres> = 29 And res <= 44 Then ("Пізнавальна активність:" & s1 & "(" & n1 & ")" & ; vbCrLf &
"Мотивація досягнення:" & s2 & "(" & n2 & ")" & vbCrLf &
"Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf &
"Гнів:" & s4 & "(" & n4 & ")" & vbCrLf &
"У результаті:" & res & "Рівень II" & vbCrLf &
"Висновок:" & vbCrLf &
"Продуктивна мотивація, позитивне ставлення до навчання, відповідність соціальному нормативу" & vbCrLf &,. OkOnly, Title: = "Результат тесту"). Computer.FileSystem.WriteAllText (CurDir () + "/ bd /" + TextBox4.Text + "_" + TextBox1.Text + "_" + TextBox2.Text + "_" + TextBox3.Text + ". txt", "Продуктивна мотивація : "& s1 &" ("& n1 &") "& vbCrLf &...
