学生评语生成系统

摘  要
关键字
前  言
第一章 VB语言概述……………………………………………………………1
1．1、VB简介 …………………………………………………………………1 
1．2、VB语言的基本特点及VB应用程序的基本持点………………………1
1．3、为何选择VB作为开发语言……………………………………………2
1．4、VB6.0应用的基本开发方法……………………………………………3
1．5、VB与API函数 …………………………………………………………4
第二章 用VB开发学生评语生成系统…………………………………………7
2．1、本软件将具有何种功能…………………………………………………7
2．2、界面及控件设置…………………………………………………………7
2．3、源代码……………………………………………………………………8
第三章  毕业设计总结…………………………………………………………10
第四章  本系统运行的软硬件配置……………………………………………10
第五章  主要参考文献…………………………………………………………10

[资料来源：http://think58.com]

摘   要：
我们知道老师书写评语是一件特别辛苦的事情。于是我就想能自己开发一个程序，这个程序不仅能根据对某位学生的“德、智、体、美、劳”表现（优秀、良好、一般、差）简单的选择，自动生成相应的评语，还可选择相应的寄语，以及加入个人的评语。对生成的评语还可以进行修改，最后生成一个文本文件（.txt）,我们便可导入或粘贴到wps或word中进行排版打印。本次毕业设计我用vb6.0所开发的“学生评语生成系统”程序圆满地实现了以上功能。本论文对如何使用vb6.0通过调用windows API函数，做了较为详细的介绍。 copyright think58 [资料来源：THINK58.com]

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

copyright think58

[资料来源：www.THINK58.com]

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

think58

[资料来源：www.THINK58.com]

[来源：http://www.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

think58 [资料来源：THINK58.com]

[来源：http://www.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 [资料来源：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 think58 [来源：http://www.think58.com]

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

'智
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 [资料来源：www.THINK58.com]

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

think58

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

'美
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 本文来自think58 [资料来源：www.THINK58.com]

'劳
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 think58好，好think58 [资料来源：http://THINK58.com]

第三章    毕业设计总结
     历时一个多月的毕业设计终于快到了尾声，通过这次毕业设计，在老师的指导下，我初步掌握了用VB开发软件的方法，我在进行设计软件时遇到了一些困难，于是我在老师的提示和鼓励下，查资料，上网和网友进行探讨。我在程序员之家，网址为http://www.csdn.net上的论坛和高手进行交流，对我受益菲浅。此外我还登录到天极网站看了不少优秀的vb技术文章。这些对我搞好毕业设计起了至关重要的作用。在此再次感谢××××大学的指导老师对我的悉心指导与帮助。由于时间仓促，这个软件肯定还有不完善的地方，比如评语的内容还不太丰富。这有待我以后继续完善，肯请各位老师提出批评改进意见。

copyright think58

第四章   程序运行软硬件环境
1、软件环境：操作系统是windowsxp专业版，在VisualBasic6.0编程环境下编译。
2、硬件环境：p4赛扬2.4G，DDR256M内存，60G硬盘空间。
第五章   主要参考文献
1、《Visual Basic 程序设计》清华大学出版 2002年7月第1版    李大友主编
2、《Visual Basic开发人员指南》机械工业出版社 1999年1月  EricBrierley主编    
3、《Visual Basic 程序设计》中央电大出版 2000年12月第1版   陈明  主编
4、《Visual Basic6.0实效编程百例》人民邮电出版社 2002年7月 刘韬、骆娟主编
5、《数据结构（c++描述）》  中央电大出版  2000年12月第1版   徐孝凯主编

本文来自think58 [资料来源：THINK58.com]