评语生成系统

第二章 学生评语生成系统的开发
2．1、本软件将具有何种功能
1、能根据对某位学生的“德、智、体、美、劳”表现（即优秀、良好、一般、差）进行简单的选择，便能自动生成相应的评语。
2、可选择相应的寄语，以及加入个人的评语。
3、对生成的评语可以进行修改。
4、最后生成一个文本文件（.txt）,使我们可方便地导入到wps或word中进行排版打印。
2．2、有关界面及控件设置
一、界面及控件设置如下图所示： [版权所有：http://think58.com]

二、有关控件的属性

控件名称 属性 功能描述
Combo1 Text=’请选择寄语’ 供选择相应的寄语
Command1 Caption=”生成”
Command2 Caption=”保存” 保存成.txt文件
Command3 Caption=“退出”
Text1 供生成评语
Text2 供添加自定义评语
Text3 供输入姓名
Frame控件4个 分开德智体美劳五项
Option控件20个 细分成四个等级
Label控件3个 显示相应提示信息
本文来自think58 [资料来源：http://THINK58.com]

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

[版权所有：http://think58.com]

'生成
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 [版权所有：http://think58.com]

'保存
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 copyright think58

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 think58好，好think58

[资料来源：THINK58.com]

'智
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