- 1、本文档共14页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
7.1 设计目标 本应用实例的设计目标是:利用Excel工作簿,以高校的系为单位,将任意年级任意课程的成绩报告表和成绩统计分析输入、生成、存储、打印、传送,实现学生成绩管理的微机化,为网络化管理打下基础。稍加修改,可用于其它各级各类学校的学生成绩管理。 对于成绩报告表,利用事先做好的模板,只需输入每位学生的成绩,系统将成绩自动按档次定位,使各分数段成绩一目了然。如果是考查成绩,输入字母a、b、c、d、e,系统自动转换为汉字“优秀”、“良好”、“中等”、“及格”、“不及格”。单击“统计”按钮,系统自动统计出全班的实考人数、各分数段人数、平均分、筛淘率并填入表格。 对于成绩分析,在已有表格框架的基础上,单击“统计”按钮,系统自动对全年级所有班统计出实考人数、各分数段人数、百分比,求出最高分、最低分、平均分,画出成绩分布曲线图。 模板工作簿主要包含“成绩报告表”工作表(每班一个)和“成绩分析”工作表(整个年级一个)。 7.2 成绩报告表 每个班级的每门课需要一个成绩报告表(或称成绩单),如果按年级和课程定义工作簿,那么,工作簿中每个班对应一个工作表。为便于程序控制,各成绩报告表分别命名为“表1”“表2”,……。各班的成绩报告表除了标题、学号、学生姓名不同外,表的框架结构和统计方式都相同,因此,我们只要设计出一个工作表,其余的就可以复制产生。 7.2.1 工作表设计 7.2.2 工作表的复制和命名 7.2.3 工作簿代码设计 7.2.4 “统计”按钮代码设计 7.2.5 运行结果 进入Excel,建立一个工作簿。 定义纸型、设置表格样式、设置单元格式、设置列宽度、设置行高度。 在“工具栏”任意位置右击,打开“控件工具栏”,在“控件工具栏”中选择“命令按钮”,在成绩报告表的右侧(页边线外)适当位置单击,建立一个命令按钮,右击新建的按钮,在快捷菜单中选“属性”项,将Caption属性设置为“统计”,并设置字体、字号、颜色和大小。 在设计好的工作表选项卡上右击,选“移动或复制工作表”,然后选中“建立副本”,位置选“移至最后”,单击“确定”按钮。 可同时选中多个工作表进行复制。既按住Ctrl或Shift键,再单击工作表选择卡 。 为便于程序控制 各成绩报告表分别命名为“表1”“表2”,……。 整个工作簿用年级和课程命名。如:成绩单00导论、成绩单99数字逻辑,可分别用来表示2000级“计算机科学导论”课、1999级“数字逻辑”课的成绩单工作簿。 为了在各“成绩报告表”中输入学生成绩时,系统能自动按档次定位,使各分数段成绩直观明了,同时,对考查成绩,输入字母a、b、c、d、e,系统自动转换为汉字“优秀”、“良好”、“中等”、“及格”、“不及格”。我们可以对工作簿的SheetChange事件编程。SheetChange在任意一个工作表的内容改变时发生。 在菜单“工具|宏”中选“Visual Basic编辑器”,进入VBE,单击“工程资源管理器”按钮,双击“ThisWorkBook”模块,打开代码编辑窗口。 在菜单“工具|宏”中选“Visual Basic编辑器”,进入VBE,单击“工程资源管理器”按钮,双击“ThisWorkBook”模块,打开代码编辑窗口。 对工作簿Workbook的SheetChange事件编写具体代码 。 以上代码段首先求当出前工作表名,并根据当前单元格地址,求出列字母和行号。如果是C列或F列(即成绩列),则取得当前单元格的值,值有前导空格,说明已转换处理完毕,不再处理。否则,对考查课成绩(五级分制),将A、B、C、D、E转换为汉字“优秀”、“良好”、“中等”、“及格”、“不及格”,并分别指定前导空格数1、6、12、18、24,对考试课成绩(百分制),直接根据分数段指定前导空格数1、8、16、24、32。最后重新按格式填写成绩。 每各成绩单工作表中都定义了一个“统计”命令按钮,默认名为CommandButton1,单击命令按钮,产生Click事件,通过下面代码调用tj过程,完成统计功能。 Private Sub CommandButton1_Click() Call tj 调用统计子程序 E
文档评论(0)