基于ExcelVba的课堂随机滚动抽问系统的设计与优化.pdfVIP

ISSN1009-3044 E-mail: eduf@ ComputerKnowledgeandTechnology 电脑知识与技术 ComputerKnowledgeandTechnology电脑知识与技术 第13卷第15期(2017年5月) Vol.13,No15, May 2017 Tel:+86-551 基于ExcelVba的课堂随机滚动抽问系统的设计与优化 黄 钢 （雅安职业技术学院，四川雅安625000） 摘要：此前通过excel做过一个随机点名抽问系统，该系统方便了老师们的教学工作，调动了学生的上课热情。但在使用过 程中，该系统暴露出一些不足，并且老师们也提出了一些新的需求。根据这些不足与需求，在旧系统的基础上设计了新系 统，对旧系统进行了优化，提高了系统的实用性。 关键词：excel；vba；随机滚动抽问 中图分类号：TP391.13 文献标识码：A 文章编号：1009-3044(2017)15-0180-02 旧系统在小范围的使用中暴露出一些不足，如功能过于单 C,抽问!F9)+1”，统计被抽次数；K1单元格设置滚动时间；K2单 一、不能自己设定随机时间等。老师们也提出了新的需求：能 元格设置加分基数；K3单元格统计总抽问次数，该参数直接决 否同时显示学号？能否显示被抽次数？能否保存抽问信息？ 定了保存记录的位置。 能否对抽问学生进行加分？经过研究得出，这些需求是完全可 3 VBA按钮及代码 以实现的。于是通过ExcelVba设计了一款新的抽问系统。 3.1“开始”按钮，代码如下： 1 界面设计与效果 Dima,bAs Integer 在excel（office2010 版）中新建三个工作表：抽问、使用方 DimcAsString 法、抽问记录。“抽问”工作表作为主要界面，ABC列分别存放序 a=Sheets(抽问).Range(k1) 号、学号、姓名，抽问界面包含相关参数及三个表单按钮和一个 b=Sheets(抽问).Range(k3) ActiveX控件按钮，字体样式与按钮样式如图（一）所示；“使用 c=Sheets(使用方法).Range(i2) 方法”工作表存放本系统的使用说明和注意事项以及停止滚动 t=Timer 时和保存记录后目标区域的显示设置；“抽问记录”工作表用于 WhileTimer - t= a 保存抽问记录及加分记录，ABCD列分别存放序号、学号、姓名、 [d5]=正在滚动抽取…… 加分。 Wend 教师在上课前，将学生信息复制到抽问工作表BC列同时