《ExcelVBA课程设计实习报告成绩管理系统》由会员分享，可在线阅读，更多相关《ExcelVBA课程设计实习报告成绩管理系统（25页珍藏版）》请在金锄头文库上搜索。
1、课程设计实习报告 题目成绩管理系统 系别信息工程系 班级计算机应用技术姓名xXXXXxx 学号21起止时间 12月26日-1月6日20112012年目录一、实习目的1二、实习内容1三、实习过程1（一）实习准备1（二）表格和窗体的设计2（三）代码设计6四、实习日志22五、实习体会24 20112012学年Excel VBA实习报告VBA是Ofice中广泛使用的宏语言，使用宏可以增强Word、Excel等办公软件的自动化能力，使用户更高效地完成特定任务。Excel处理对象多为数据，使用VBA可以使繁琐和枯燥的工作变得简单易行。本学期的学习使我对VBA有了深刻的认识，掌握VBA的一些操作方法，本次的
2、实习使我对VBA的实际运用又有了进一步的了解。一、实习目的掌握VBA程序设计语言的基础知识，并开发一个基于数据库的高效办公应用系统，通过实习能达到利用VBA编程思想和技巧，实现各种高效自动化办公应用，能建立友好的图形用户界面，能正确地进行数据库服务器和数据库中数据的操作。二、实习内容题目：（项目二）成绩管理系统本项目利用VBA实现学生成绩评估的自动化，使学校提高对考生成绩分析的效率，从而提高学校考试系统的自动化。三、实习过程（一）实习准备在任何程序设计时，都需要有缜密的设计思路。本次是“成绩管理系统”，结合学校的实际情况，首先对问题和需求进行分析，其次对项目的功能进行分析。得出项目设计流程图学
3、生成绩管理系统信息录入与更新学生考试情况分析学生整体考试情况学生信息录入学生个体考试情况学生分数信息录入学生成绩的打印退出系统（二）表格和窗体的设计在开始编写代码前，需要设计好需要的每个工作表的框架，以便调用。首先设计了学生信息表，在第二行中一次输入编号、姓名、性别、班级字段，如图 2。设计学生分数表用来录入学生的考试成绩，涉及字段为：编号、姓名、数学、英语、语文、物理、化学、生物、体育、总分；如图 1。设计统计学生整体情况的统计表；如图 3图 1 学生分数信息表图 2 学生信息表图 3 统计表本次实习涉及到窗体，我采用先设计窗体再编写代码的方式。添加与更新学生信息窗体，添加与更新学生分数信息
4、窗体，如图所示。 图 4 添加与更新学生信息窗体图 5 添加与更新学生分数信息窗体 图 6 分数查询（普通查找与高级查找）窗体（三）代码设计相关窗体设计完成后，接下来就是编写相关的功能代码，有了代码窗体的功能才能充分体现。首先是添加与更新学生信息窗体的“确定”按钮编写相应代码，主要代码如下：Private Sub CommandButton1_Click()Dim tempY As IntegerDim SetFlag As BooleanSetFlag = TruetempY = 3 If (Trim(TextBox1.Text) = ) Or (Trim(TextBox2.Text) =
5、) Then MsgBox 请输入编号和姓名，确保一致, vbOKOnly, 警告！ EndEnd IfWhile (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.Te
6、xt ) 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 + 1WendWhile (Not IsEmpty(Sheets(学生信息表).Cells(tempY, 1).Value)If (Trim(TextBox1.Text = Sheets
7、(学生信息表).Cells(tempY, 1).Value) Then SetFlag = False GoTo renew End If tempY = tempY + 1Wendrenew: If (SetFlag) Then If (vbOK = MsgBox(没有找到该学生信息，是否新加入条目, vbOKCancel, 提示) Then Sheets(学生信息表).Cells(tempY, 1).Value = TextBox1.Text Sheets(学生信息表).Cells(tempY, 2).Value = TextBox2.Text If (Trim(ComboBox1.Tex
8、t ) Then Sheets(学生信息表).Cells(tempY, 3).Value = ComboBox1.Text End If If (Trim(TextBox4.Text ) Then Sheets(学生信息表).Cells(tempY, 4).Value = TextBox4.Text End If End If End IfEnd Sub窗体的效果如下图所示：输入学生信息后，单机“确定”按钮后，如果找到相应的学生信息将会更新学生信息，如果没有相关学生信息，将弹出是否添加学生信息的对话框。如图 7所示图 7当查找到学生信息需要删除时，点击删除按钮。相应代码为：Private Su
9、b CommandButton4_Click()Dim tempY As IntegertempY = 3按照编号搜索记录If (Trim(TextBox5.Text) ) ThenWhile (Not IsEmpty(Sheets(学生信息表).Cells(tempY, 1).Value) If (TextBox5.Text = Sheets(学生信息表).Cells(tempY, 1).Value) Then Sheets(学生信息表).Select Sheets(学生信息表).Range(A & CStr(tempY) & :D & CStr(tempY).SelectDim shanc
10、hu As Integershanchu = MsgBox(确定删除学生信息？, vbYesNo, 提示：)If shanchu = 6 Then Sheets(学生信息表).Range(A & CStr(tempY) & :D & CStr(tempY).Delete Shift:=xlUp MsgBox 删除学生信息成功！, vbOKOnly, 提示： End If End If tempY = tempY + 1WendElseIf (Trim(TextBox6.Text) ) ThenWhile (Not IsEmpty(Sheets(学生信息表).Cells(tempY, 1).Va
11、lue)If (TextBox6.Text = Sheets(学生信息表).Cells(tempY, 2).Value) Then Sheets(学生信息表).Select Sheets(学生信息表).Range(A & CStr(tempY) & :D & CStr(tempY).Selectshanchu = MsgBox(确定删除学生信息？, vbYesNo, 提示：) If shanchu = 6 Then Sheets(学生信息表).Range(A & CStr(tempY) & :D & CStr(tempY).Delete Shift:=xlUp MsgBox 删除学生信息成功！
12、, vbOKOnly, 提示：End If End If tempY = tempY + 1 Wend ElseMsgBox 请选择要删除的学生编号或姓名！, vbOKOnly, 提示： End IfEnd Sub当需要删除学生信息时，如果没有输入学生的条件编号或者姓名，将弹出提示输入删除条件的对话框；当输入了学生的编号或姓名，将弹出确认删除的信息框。如下图所示： 图 8 删除学生信息添加与更新学生分数的窗体代码：Private Sub CommandButton1_Click()Dim tempY As IntegerDim SetFlag As BooleanSetFlag = Truet
13、empY = 3 If (Trim(TextBox1.Text) = ) Or (Trim(TextBox2.Text) = ) Then MsgBox 请输入编号和姓名，确保一致, vbOKOnly, 警告！ EndEnd IfWhile (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(TextBox3.Text ) Then Sheets(学生分数表).Cells(tempY, 3).Value = TextBox3.Text End If If (Trim(TextBox4.Text ) Then Sheets(学生分数表).Cells(tempY, 4).Value = TextBox
