Информационное обеспечение деятельности предприятия "ЕАЕ-Консалт"
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
ь: " & 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 & "Мотивация достижения: " & 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 = 10 And s4 <= 13 Then
n4 = "Низкий"If
Сравнение результатов с табличными данными (М)
If gen = "м" And (s1 >= 31 And s1 =