Excel_VBA课程设计实习报告---成绩管理系统.docVIP

课程设计实习报告 题目成绩管理系统 系别信息工程系 班级计算机应用技术 姓名xXXXXxx 学号 21 起止时间 12月26日------1月6日 2011—2012年 目录 一、实习目的 1 二、实习内容 1 三、实习过程 1 （一）实习准备 1 （二）表格和窗体的设计 2 （三）代码设计 6 四、实习日志 22 五、实习体会 24 VBA是Ofice中广泛使用的宏语言，使用宏可以增强Word、Excel等办公软件的自动化能力，使用户更高效地完成特定任务。Excel处理对象多为数据，使用VBA可以使繁琐和枯燥的工作变得简单易行。本学期的学习使我对VBA有了深刻的认识，掌握VBA的一些操作方法，本次的实习使我对VBA的实际运用又有了进一步的了解。 一、实习目的 掌握VBA程序设计语言的基础知识，并开发一个基于数据库的高效办公应用系统，通过实习能达到利用VBA编程思想和技巧，实现各种高效自动化办公应用，能建立友好的图形用户界面，能正确地进行数据库服务器和数据库中数据的操作。 二、实习内容 题目：（项目二）成绩管理系统 本项目利用VBA实现学生成绩评估的自动化，使学校提高对考生成绩分析的效率，从而提高学校考试系统的自动化。 三、实习过程 （一）实习准备 在任何程序设计时，都需要有缜密的设计思路。本次是“成绩管理系统”，结合学校的实际情况，首先对问题和需求进行分析，其次对项目的功能进行分析。 得出项目设计流程图 （二）表格和窗体的设计 在开始编写代码前，需要设计好需要的每个工作表的框架，以便调用。 首先设计了学生信息表，在第二行中一次输入编号、姓名、性别、班级字段，如图 2。 设计学生分数表用来录入学生的考试成绩，涉及字段为：编号、姓名、数学、英语、语文、物理、化学、生物、体育、总分；如图 1。 设计统计学生整体情况的统计表；如图 3 图 1 学生分数信息表 图 2 学生信息表 图 3 统计表 本次实习涉及到窗体，我采用先设计窗体再编写代码的方式。 添加与更新学生信息窗体，添加与更新学生分数信息窗体，如图所示。 图 4 添加与更新学生信息窗体 图 5 添加与更新学生分数信息窗体 图 6 分数查询（普通查找与高级查找）窗体 （三）代码设计 相关窗体设计完成后，接下来就是编写相关的功能代码，有了代码窗体的功能才能充分体现。 首先是添加与更新学生信息窗体的“确定”按钮编写相应代码，主要代码如下： Private Sub CommandButton1_Click() Dim tempY As Integer Dim SetFlag As Boolean SetFlag = True tempY = 3 If (Trim(TextBox1.Text) = ) Or (Trim(TextBox2.Text) = ) Then MsgBox 请输入编号和姓名，确保一致, vbOKOnly, 警告！ End End If While (Not IsEmpty(Sheets(学生信息表).Cells(tempY, 1).Value)) If (Trim(TextBox1.Text = Sheets(学生信息表).Cells(tempY, 1).Value)) Then Sheets(学生信息表).Cells(tempY, 1).Value = TextBox1.Text Sheets(学生信息表).Cells(tempY, 2).Value = TextBox2.Text If (Trim(ComboBox1.Text )) Then Sheets(学生信息表).Cells(tempY, 3).Value = ComboBox1.Text End If If (Trim(TextBox4.Text )) Then Sheets(学生信息表).Cells(tempY, 4).Value = TextBox4.Text End If SetFlag = False GoTo renew End If tempY = tempY + 1 Wend While (Not IsEmpty(Sheets(学生信息表).Cells(tempY, 1).Value)) If (Trim(TextBox1.Text = Sheets(学生信息表).Cells(tempY, 1).Value)) Then SetFlag = False GoTo renew End