VBA在学生成绩登记表中的应用

《VBA在学生成绩登记表中的应用》由会员分享，可在线阅读，更多相关《VBA在学生成绩登记表中的应用（4页珍藏版）》请在装配图网上搜索。

1、黎明职业大学学报第 1 期 ( 总第 54 期) 2007 年 3 月No . 1Journal of L iming Voca t ional Un iversity Mar . 2007 科技研究文章编号 : 1008 8075 ( 2007) 01 0040 04VBA 在学生成绩登记表中的应用王 明 东(黎明职业大学计算机与信息工程系 福建 泉州 362000)摘要 : Micro sof t Wo rd 是一个功能强大的文字处理软件 , 而 VBA 是其一个重要的组件 , 可以使Wo rd 繁琐 、机械的日常编辑工作自动化 。介绍了在 Wo rd2003 中使用 “宏”技术实现对成绩

2、登记表 的自动计算 、统计的算法 。展示了对 Wo rd 进行功能扩展的基本途径和方法 。关键词 : VBA ; 宏 ; 成绩登记表中图分类号 : TP312文献标识码 : B根据成绩登记表的填写要求 , 本系统应具备的功能有 :1) 输入学生成绩 , 可以输入数值 、也可以 输入 等 级 ( 如 : 平 时 成 绩 、技 能 成 绩 可 以 是 “优 、良 、中 、及 、不及”等) 。2) 计算学生学期综合成绩 (为分数) , 这要求应能将等级成绩转换成数值进行计算 。3) 对各项不及格成绩 , 成绩为红色 ; 期末 考试成绩小于 50 分 , 期末考试成绩加框 , 综合 成绩即为期末考试成

3、绩 , 不再考虑其他成绩 ; 期 末考试缺考 , 期末考试成绩 、综 合 成 绩 均 填 写 “缺 考 ”, 加 框 、加 阴 影 ; 综 合 成 绩 小 于 40 分 (重修) , 加框 、加阴影 。4) 统计成绩分布 。1前言填写统计成绩登记表的一般作法是先填写平时成绩 、期末考试成绩和技能成绩 , 然后再按照三者构成课程的综合成绩的比例进行加权求和 ,求出综合成绩 。并统计出各分 数 段 的 人 数 、比 例 ; 最高分 、最低分和平均分 。这是一项烦琐费 时的工作 。虽然这些处理在 Excel 或 Wo rd 中经 过一系列操作都能完成 , 但是这些操作繁琐 、费 时 、易出错 , 有

4、一定的难度 , 且不是所有的教师都会用 。所以编写一个计算机成绩统计系统 ,替教师的人工统计 , 就显得尤为必要 。12 处理要求成绩登记表的模板如图 1 和图 2 所示 。代3 设计方案在基本不改变成绩登记表原 有 模 板 的 基 础上 , 利用 VBA 、宏 , 设计应用程序实现上述功 能要求 。1) 在原有模板上增加了综合成绩构成比例 说明部份 , 如图 1 所示 。2) 为方便操作 , 建立一自定义工具栏 。建 立过程如下 :图 1 成绩登分部份及综合成绩构成比例图 2 成绩分布情况收稿日期 : 2006 - 09 - 03作者简介 : 王明东 ( 1976 - ) ,男 ( 汉) ,

5、福建泉州人 ,黎明职业大学计算机与信息工程系教师 ,主要从事管理信息系统方面的研究 。首先在 “工具”菜单中的 “宏”子菜单中建立两 个 宏 ( 过 程) , 分 别 命 名 为 cal 和 myhelp ,图 4 处理后的课程成绩表3 自定义成绩统计工具并将宏保存在文档中 。接着使用 Wo rd “视图”菜单中的 “工具栏”子菜单 , 自定义成绩统计工具 栏 , 并将上面的两个宏 , 拖到该工具栏上 , 重命名为 “成绩统计”和 “帮助”。这样每次打开成 绩登 记 表 , 该 工 具 栏 会 自 行 打 开 ( 如 图 3 所示) 。23) 主要功能划分如下 :cal 过程 , 检查构成综合

6、成绩的各项成绩的 比例之和是否为 100 ; 初始化统计过程中使用到的变量 、数组 ; 对表中每个学生的成绩 , 调用自定义过程 Sco re- Handling , 逐个统计并作相应处 理 ; 统计成绩分布 。Sco re- Handling 过 程 , 处 理 单 个 学 生 成 绩 ,其参数为待处理学生的平时成绩所处的单元格的 行列号 。从成绩登记表中取出当前处理的学生平 时成绩 、末考成绩 、技能成绩 , 并调用 C- int 函 数 , 进行数据转换 ; 根据综合成绩构成比例计算 出综合成绩 ; 对 4 项成绩按成绩登记表的要求进行格式处理 ( 见 “2 、处理要求”) ; 根据综合

7、成 绩统计各分数段的人数 , 缺考人数 , 卷面成绩低 于 50 分的人数 。C- int 函数 , 主要功能是将文本转换成数值 , 其参数为待处理单元格中的文本 , 返回值为整型 数据 。若单元格中的文本是由数值组成则直接转为一整数 ; 若单元格中为等级成绩则按下列规则 转换 : 优 = 95 , 良 = 85 , 中 = 75 , 及 = 65 , 不及= 55 。图 5 处理后的成绩分布5511系统实现实现方法主要实现过程如图 6 、图 7 、图 8 所示 :操作过程由于是用宏实现的 , 因此用时应先将 Wo rd的宏安全级设置为中或低 (设置方法 : 工具菜单 选项 安全性 宏安全性

8、, 关闭 Wo rd)2; 进 入 Wo rd 打开成绩登记表 , 输入综合成绩构成比 例 、输入学生各项成绩的分数或等级 , 然后单击 如图 3 中的 “成绩统计”按钮 , 本系统即会自动4图 6 成绩统计流程 42 黎明职业大学学报2007 年 3 月ByVal column As Integer)Dim sco re (3) As Single , total As SingleWit h ThisDocument . Tables. Item (1)If St rCo mp ( Trim ( Mid ( . Cell ( row , column +1 ) . Range . Text

9、 , 1 , 2 ) ) , ”缺 考 ”, vbBina2ryCo mpare) = 0 Then 缺考. Cell ( row , column + 3) . Range . Text = ”缺 考”sco re ( 1 )= C- Int ( . Cell ( row , column ) . Range . Text)构可知 , 一张二维表由若干行组成 , 一行由若干个单元格组成 。访问某一单元格的方法如下 :ThisDocument .Tables( index ) .Cell( row ,At t ribute3col) .sco re (2)sco re (3) Range .

10、Text)total = Elsesco re ( 1 )Range . Text) sco re (2) Range . Text) sco re (3) Range . Text)= - 1= C- Int ( . Cell ( row , column + 2) .- 1= C- Int ( . Cell ( row , column ) .= C- Int ( . Cell ( row , column+ 1) .= C- Int ( . Cell ( row , column+ 2) .期末考试成绩小于 50 分 ,综合成绩为期末考试成绩total = I If ( sco re (

11、2) 50 , sco re (2) , Ro und( ( sco re (1) 3 ratio (1)sco re (3) 3 ratio (3) ) /+ sco re (2) 3 ratio (2) +100 , 0) ) 综合成绩图 7 处理单个学生成绩流程. Cell ( row , column + 3) . Range . Text= to2tal= to2If Max- Sco re total Then Min- Sco re = totalTotal- Sco re = Total- Sco re + totalEnd If各项成绩小于 60 分 ,字体为红色. Cell

12、 ( row , column ) . Range . Fo nt . Colo r =I If ( sco re (1) = 0 And sco re ( 1) = - 1 And sco re ( 2 ) = 0 And sco re ( 3) = - 1 And total = - 1 And sco re (2) = 0 And sco re (2) = - 1 And total = - 1 Andtotal = 90 优秀sco re- analyse (1 , 1) = sco re- analyse (1 , 1) + 1Case Is = 80 良好sco re- analy

13、se (1 , 2) = sco re- analyse (1 , 2) + 1Case Is = 70 中等sco re- analyse (1 , 3) = sco re- analyse (1 , 3) + 1Case Is = 60 及格sco re- analyse (1 , 4) = sco re- analyse (1 , 4) + 1Case Is = 0 不及格本系统易于 使 用 , 程 序 具 有 一 定 的 健 壮 性 。应用该系统可以使教师从烦琐的登分工作中解脱出来 ,大大提高工作效率 ,即有较好的实用性 。参考资料1齐春桥. 一个基于实际的试卷分析系统J . 大连大学学报 ,2000 , ( 8) :61 - 63 .2神龙工作室. Wo rd 2003 中文版入门与提高M. 北京 :人 民邮电出版社 , 2005 .3李政. VBA 应用基础与实例教程M. 北京 : 国防工业出 版社 ,2005 ,5 .(责任编辑杨江云)