1.学生评语生成系统的系统说明

关键字：学生评语生成系统、VB6开发。

前 言

电脑已经成为挂在我们嘴角的一句口头禅，它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。Windows系统的推出使电脑从高雅的学术殿堂走入了寻常百姓家，各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。以前开发Windows下软件是专业人员的工作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同了，即使你没有接受过严格的程序设计训练，使用Visual Basic也一样能够开发出功能强大、适合自己特殊需求的应用程序了。Visual Basic继承了Basic语言易学易用的特点，特别适合于初学者学习Windows系统编程。

第一章 学生评语生成系统的开发

2.1、本软件将具有何种功能

1、能根据对某位学生的“德、智、体、美、劳”表现（即优秀、良好、一般、差）进行简单的选择，便能自动生成相应的评语。

2、可选择相应的寄语，以及加入个人的评语。

3、对生成的评语可以进行修改。

4、最后生成一个文本文件（.txt），使我们可方便地导入到wps或word中进行排版打印。

。。。。

2.终结性评价和总结性评价的区别在教育评价这一块,我们常常提到总结

终结性评价是对一个学段、一个学科教学的教育质量的评价，其目的是对学生阶段性学习的质量做出结论性评价，评价的目的是给学生下结论或者分等.终结性评价：是检测学生综合运用语言能力发展程度的重要途径，也是反映教学效果，学校办学质量的重要指标表之一.如期末考试，结业考试等.终结性评价不仅应用在教学领域，已逐步扩展到商业、社会、生活、政治的各个领域.总结性评价又称“事后评价”，一般是在教学活动告一段落后，为了解教学活动的最终效果而进行的评价.学期末或学年末进行的各科考试、考核都属于这种评价，其目的是检验学生的学业是否最终达到了各科教学目标的要求.总结性评价重视的是结果，借以对被评价者做出全面鉴定，区分出等级，并对整个教学活动的效果做出评定.总结性评价是以预先设定的教学目标为基准，对评价对象达成目标的程度即教学效果做出评价.总结性评价注重考察学生掌握某门学科的整体程度，概括水平较高，测验内容范围较广，常在学期中或学期末进行，次数较少.。

3.求VB学生评语生成器

Option Explicit'声明德智体美劳变量Dim Mind As String, Score As String, PE As StringDim Manner As String, Labor As String, jy As StringPrivate Sub Combo1_Click() jy = Combo1.TextEnd Sub'生成Private Sub Command1_Click() If Text3.Text = "" Then MsgBox "姓名栏不能为空"， vbOKOnly， "提示" Text3.SetFocus Text1.Text = "" Else Text1 = " " + Text3.Text + "同学一学期来" + Mind + Score + _ PE + Manner + Labor + Text2.Text + jy End IfEnd Sub'保存Private Sub Command2_Click() Dim sF As String sF = Text3.Text + ".txt" Open sF For Output As #1 Print #1, Text1.Text Close #1End SubPrivate Sub Command3_Click() End '退出End Sub'德Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Mind = "各方面从高从严要求自己，上进心强，遵守纪律。

" Case 1 Mind = "思想上要求进步，严于律已，能较好地遵守校纪班规。" Case 2 Mind = "有一定的上进心，基本上能遵守学校的规章制度。

" Case 3 Mind = "思想纪律表现一般，基本上能遵守校纪班规，但自律能力不强，偶尔" _ + "有意外行为。" End SelectEnd Sub'智Private Sub optScore_Click(Index As Integer) Select Case Index Case 0 Score = "学习能力出众，勤奋用功，成绩优异，如保持下去，前途无限。

" Case 1 Score = "学习能力较好，肯下功夫，成绩优良，有较好的发展潜力。" Case 2 Score = "有一定的自学能力，所作出的努力取得相应的成绩，挖掘潜力可观。

" Case 3 Score = "学习上用心程度不够，成绩不太理想，但悟性较好，经努力会很快有长" _ + "足进步的。" End SelectEnd Sub'体Private Sub Option3_Click(Index As Integer) Select Case Index Case 0 PE = "热爱体育，积极参加体育锻炼，体能素质优良，身体健康。

" Case 1 PE = "爱好体育，主动参加体育锻炼，体能素质良好，身体健康。" Case 2 PE = "基本上按要求参加体育锻炼，成绩合格。

" Case 3 PE = "体育方面不太理想，身体素质有待加强。" End SelectEnd Sub'美Private Sub Option4_Click(Index As Integer) Select Case Index Case 0 Manner = "为人诚实，尊重老师、长辈，团结同学，乐于助人。

" Case 1 Manner = "待人有礼貌，尊重师长、团结同学。" Case 2 Manner = "和气待人，与同学和好相处。

" Case 3 Manner = "举止有进欠周到，望加强修养。" End SelectEnd Sub'劳Private Sub Option2_Click(Index As Integer) Select Case Index Case 0 Labor = "热爱劳动，有吃苦耐劳的精神。

" Case 1 Labor = "劳动积极肯干，能吃苦耐劳。" Case 2 Labor = "劳动课能完成任务，但主动性有待提高。

" Case 3 Labor = "劳动方面认识不足，表现一般。" End SelectEnd SubPrivate Sub Text1_Change()End Sub。