期末成绩处理课程设计报告（VB） 编号：28
期末成绩处理设计报告
一、设计思路
1.要达到的目的
①培养学生综合利用VB语言进行程序设计的能力，主要是通过使用VB的标准控件，加深对控件的多个属性的认识及如何使用属性进行程序设计
2.关键问题的解决
① 设计一个具有两个窗口的期末成绩统计的小程序 ②其中第一个窗口完成：
学生人数和4门课成绩的录入，4门课的名称及学生人数由用户输入。 每录入完一个学生成绩后，将各门课成绩写入Excel表格中。
打开Excel表格查看写入的数据是否
② 第二个窗口用来绘制描述各科目平均成绩的柱形图，界面中还应包含坐标系、图表名称、各科成绩的平均分值、课程名称及色块
③ 对窗口1的4个文本框要求：在输入成绩之前，焦点要在第一个文本框中，且文本为可编辑状态；当第一个文本框中输入2位数据后，焦点自动移入下一个文本框中，且文本状态和第一个相同 文本框中只允许输入数字0、
1、
2、
3、
4、
5、
6、
7、
8、9及小数点“.”；文本框中文本的位数最大为2位 输入学生成绩时窗口上要提示输入的是第几个学生成绩，并要求输入最后一个学生成绩后“写入数组”控件隐藏
④ 全部学生成绩输入完成后，单击“写入Excel文件”控件，把学生成绩全部放在Excel表格中，要求有字段名内容。
⑤ 单击“打开Excel文件”控件，将打开刚刚生成的Excel表。
⑥ 单击“绘制柱形图”控件，打开第二个窗口，并显示以课程平均分为依据的柱状图。
⑦ 要想结束程序，应单击“退出”按钮。
三、部分程序关键源代码及注释
Private Sub Command2_Click() \'★创建EXCEL对象
Set XlApp = CreateObject(\"Excel.Application\") \'★打开已经存在的EXCEL工件簿文件
Set XlBook = XlApp.Workbooks.Open(App.Path & \"\\book.xls\") \'★设置EXCEL对象可见 (或不可见) \'XlApp.Visible = True \'★设置活动工作表, sheet1表示表名，可以使用字符型变量代替。 Set XlSheet = XlBook.Worksheets(\"Sheet1\") XlSheet.Range(\"A1:IV65536\").Clear \'★给EXCEL对象中的表的单元格附值? \'★保存 EXCEL 文件 XlBook.Save \'★另存为
\'XlBook.SaveAs (\"文件名\")
期末成绩处理课程设计报告（VB） 编号：28
\'★关闭工作簿
XlBook.Close (True) \'★结束 EXCEL 对象 \'xlExcel.Quit \'★释放xlApp对象 Set XlApp = Nothing MsgBox \"写入Excle成功\" End Sub Private Sub Command3_Click() \'★创建EXCEL对象
Set XlApp = CreateObject(\"Excel.Application\") \'★打开已经存在的EXCEL工件簿文件
Set XlBook = XlApp.Workbooks.Open(App.Path & \"\\book.xls\") \'★设置EXCEL对象可见 (或不可见) XlApp.Visible = True End Sub
四、设计方案的完善及目前存在的问题
1．设计方案要完善的地方 ① 操作有点繁琐 2.目前存在的问题
① 开始时出现错误，但不影响使用
五、本次设计的收获及心得体会
加强了对VB的理解，让我更加明白VB的实际作用。
六、对该题目和VB设计的意见和建议
1.对该题目的意见和建议
不要单个输入，应该直接输入多个同学的成绩。 2．对本次设计的意见和建议 难度应该降低点。
