" Мотивація досягнення: "& s2 &" ("& n2 & ")" & vbCrLf & "Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf & "Гнів:" & s4 & "(" & n4 & ")" & vbCrLf & "У результаті:" & res & vbCrLf & "Висновок:" & vbCrLf & " Продуктивна мотивація, позитивне ставлення до навчання, відповідність соціальному нормативу ", True)
End Ifres> = 13 And res <= 28 Then ("Пізнавальна активність:" & s1 & "(" & n1 & ")" & ; vbCrLf &
"Мотивація досягнення:" & s2 & "(" & n2 & ")" & vbCrLf &
"Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf &
"Гнів:" & s4 & "(" & n4 & ")" & vbCrLf &
"У результаті:" & res & "Рівень III" & 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 If (res = (-1) Or res = (-2)) Or res> = 0 And res <= 12 Then
MsgBox ("Пізнавальна активність:" & s1 & "(" & n1 & ")" & vbCrLf &
"Мотивація досягнення:" & s2 & "(" & n2 & ")" & vbCrLf &
"Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf &
"Гнів:" & s4 & "(" & n4 & ")" & vbCrLf &
"У результаті:" & res & "Рівень IV" & 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 If (res> = -60) And (res <= -3) Then ("Пізнавальна активність:" & s1 & "(" & n1 & ; ")" & vbCrLf &
"Мотивація досягнення:" & s2 & "(" & n2 & ")" & vbCrLf &
"Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf &
"Гнів:" & s4 & "(" & n4 & ")" & vbCrLf &
"У результаті:" & res & "Рівень V" & 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) IfIf
'Порівняння результатів з табличними даними (Ж)
If gen = "ж" And s1> = 29 And s1 <= 40 Then = "Високий" Ifgen = "ж" And s1> = 18 And s1 <= 28 Then = "Норма" Ifgen = "ж" And s1> = 10 And s1 <= 17 Then = "Низький" Ifgen = "ж" And s2> = 29 And s2 <= 40 Then = "Високий" Ifgen = "ж" And s2> = 18 And s2 <= 28 Then = "Норма" Ifgen = "ж" And s2> = 10 And s2 <= 17 Then = " ; Низький "Ifgen =" ж "And s3> = 25 And s3 <= 40 Then =" Високий "Ifgen =" ж "And s3> = 17 And s3 <= 24 Then =" Норма " ; Ifgen = "ж" And s3> = 10 And s3 <= 16 Then = "Низький" Ifgen = "ж" And s4> = 21 And s4 <= 40 Then = "Високий" Ifgen = "ж" And s4> = 14 And s4 <= 20 Then = "Норма" Ifgen = "ж" And s4> = 10 And s4 <= 13 Then
n4 = "Низький" If
'Порівняння результатів з табличними даними (М)
If gen = "м" And (s1> = 31 And s1 <= 40) Then = "Високий" Ifgen = "м" And (s1> = 21 And s1 <= 29) Then = "Норма" Ifgen = "м" And (s1> = 10 And s1 <= 20) Then = "Низький" Ifgen = "м" And s2> = 31 And s2 <= 40 Then = "Високий" Ifgen = "м" And s2> = 21 And s2 <= 29 Then = "Норма" Ifgen = "м" And s2> = 10 And s2 < ; = 20 Then = "Низький" Ifgen = "м" And s3> = 23 And s3 <= 40 Then = "Високий" Ifgen = "м" And s3> = 16 And s3 <= 22 Then = "Норма" Ifgen = "м" And s3> = 10 And s3 <...
