第二章 学生评语生成系统的开发
2．1、本软件将具有何种功能
1、能根据对某位学生的“德、智、体、美、劳”表现（即优秀、良好、一般、差）进行简单的选择，便能自动生成相应的评语。
2、可选择相应的寄语，以及加入个人的评语。
3、对生成的评语可以进行修改。
4、最后生成一个文本文件（.txt）,使我们可方便地导入到wps或word中进行排版打印。
2．2、有关界面及控件设置
一、界面及控件设置如下图所示：
二、有关控件的属性
控件名称 属性 功能描述
Combo1 Text=’请选择寄语’ 供选择相应的寄语
Command1 Caption=”生成”
Command2 Caption=”保存” 保存成.txt文件
Command3 Caption=“退出”
Text1 供生成评语
Text2 供添加自定义评语
Text3 供输入姓名
Frame控件4个 分开德智体美劳五项
Option控件20个 细分成四个等级
Label控件3个 显示相应提示信息
2．3、源代码
Option Explicit
'声明德智体美劳变量
Dim Mind As String, Score As String, PE As String
Dim Manner As String, Labor As String, jy As String
Private Sub Combo1_Click()
jy = Combo1.Text
End 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 If
End Sub
'保存
Private Sub Command2_Click()
Dim sF As String
sF = Text3.Text + ".txt"
Open sF For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private 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 Select
End Sub
'智
Private Sub optScore_Click(Index As Integer)
Select Case Index
Case 0
Score = "学习能力出众，勤奋用功，成绩优异，如保持下去，前途无限。"
Case 1
Score = "学习能力较好，肯下功夫，成绩优良，有较好的发展潜力。"
Case 2
Score = "有一定的自学能力，所作出的努力取得相应的成绩，挖掘潜力可观。"
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)
说明：1、本计算机毕业设计样本提供的只是有关此设计论文和程序的简单介绍，要想取得完整的作品，需要你与本站联系。2、本样本只是从论文中摘录一部分，在内容、字体、字号排版上与实际作品有一定的差别，请以本站实际提供的作品为准。
