，挖掘潜力可观。"
Case 3
Score = "学习上用心程度不够，成绩不太理想，但悟性较好，经努力会很快有长足进步的。"
End Select
End Sub
'体
Private Sub Option3_Click(Index As Integer)
Select Case Index
Case 0
PE = "热爱体育，积极参加体育锻炼，体能素质优良，身体健康。"
Case 1
PE = "爱好体育，主动参加体育锻炼，体能素质良好，身体健康。"
Case 2
PE = "基本上按要求参加体育锻炼，成绩合格。"
Case 3
PE = "体育方面不太理想，身体素质有待加强。"
End Select
End Sub
'美
Private Sub Option4_Click(Index As Integer)
Select Case Index
Case 0
Manner = "为人诚实，尊重老师、长辈，团结同学，乐于助人。"
Case 1
Manner = "待人有礼貌，尊重师长、团结同学。"
Case 2
Manner = "和气待人，与同学和好相处。"
Case 3
Manner = "举止有进欠周到，望加强修养。"
End Select
End Sub
'劳
Private Sub Option2_Click(Index As Integer)
Select Case Index
Case 0
Labor = "热爱劳动，有吃苦耐劳的精神。"
Case 1
Labor = "劳动积极肯干，能吃苦耐劳。"
Case 2
Labor = "劳动课能完成任务，但主动性有待提高。"
Case 3
Labor = "劳动方面认识不足，表现一般。"
End Select
End Sub
