一种基于vba编程的随机抽题系统-发明专利

《一种基于vba编程的随机抽题系统-发明专利》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一种基于VBA编程的随机抽题系统1、现有技术状况及其存在缺陷这部分为背景技术介绍，要求介绍与本发明相关的已有技术发展情况，及其存在的缺点。本实用新型属于一种基于VBA编程制作的PPT类型自动随机抽题系统，该系统可适用于比赛抽签、答辩抽签、答辩随机抽题、课堂随机点名、晚会现场抽奖、教学知识竞赛、面试随机抽题等需要随机抽签或抽题的场合。该系统可操作性强，用户可根据需要自行调整相关设置，能够使每一位在场用户能够通过投影仪屏幕同时看到随机所抽题目，相比传统纸质抽签更公平公正，更方便用户使用。背景技术随着电子行业的突飞猛进，电脑及软件应用走

2、进了人们的生活，我们应该充分利用电子产品资源。例如，在高校毕业答辩、高校及面试等各个抽题环节中一般采用纸质化抽题，这样不仅浪费纸张、浪费碳粉，同时打印机在打印过程中所消耗电能以及微细碳粉对环境产生的危害也不可忽视。我国仍有大部分地区实行火力发电，需要消耗煤炭，而纸张来源于树皮，这些纸张、电能的消耗都间接导致温室效应，不符合国家长期发展的要求。随着互联网的兴起，“互联网＋”的范围也逐渐扩大。例如在教育行业中，“互联网+教育”是对教育行业的一大提升，相比以往的答辩过程，学生需要通过电话及短信形式得知答辩安排变化，答辩之后学生需要亲自到

3、院系老师办公室查阅答辩成绩，本次设计的自动随机抽题系统结合最新的二维码活码技术，学生只需保存本次答辩的二维码或者微信收藏之后，可以在答辩过程中及时得知答辩信息变更情况，以及答辩成绩公布之后可以通过该二维码直接获取答辩成绩，免去了学生往返于院系和宿舍及打印店之间的麻烦，既节省了学生的时间，也提高了教师的工作效率。在高校研究生面试、企业面试、教学知识竞赛、晚会比赛等活动中，通过使用本系统中引用的活码技术仍然可以满足不同用户的需求。目前虽然有些计算机爱好者通过VBA编程代码设计了简单的随机抽题系统，但是仍存在以下几点问题无法解决，导致软

4、件无法普及使用。1.目前存在的简单抽题系统“开始”按钮和“停止”按钮分开布置，无法将二者结合集成为一个控制按钮功能，导致占用较多的屏幕空间，影响屏幕视觉效果。2.目前存在的简单随机抽题系统没有初始化功能，用户无法清空抽题记录，9用户如果想要使用这些简单抽题软件，必须在不保存使用数据记录或者保存数据，软件仅能作为一次性产品使用二者选其一，限制了软件的推广使用。1.目前存在的简单随机抽题系统无法自动统计数据库中题目数量，必须用户自己统计好数据库题目数量后，通过修改VBA代码方式修改题目数量，限制抽题编号变化范围，但是目前国内大部分用户

5、并不了解VBA编程，导致用户无法修改题目数量，从而限制了随机抽题系统的普及推广。2.目前存在的简单随机抽题系统只具有简单抽题功能，在毕业答辩以及某些晚会等需要先抽签决定顺序，再进行抽题活动环节中无法完美运行，因此也需要设计出一款能够实现抽签抽题一体化的随机抽题系统。2、本发明的技术方案（1）对照本发明通讯过程的主要（软件）流程图，详细说明本发明通讯过程的步骤；（2）对照本发明通讯装置的结构示意图（标号），详细说明本发明通讯装置的结构，包括由几个部分组成，各组成部分的连接关系。（1）一种基于VBA编程的随机抽题系统中运用VBA程序代

6、码，其具有根据参赛选手总人数，自动设置抽签数量，参赛选手只需要点击“开始抽签”或“开始抽题”控制器按钮便可随机滚动生成签号或题号，点击“停止抽签”或“停止抽题”控制器按钮即可获得自己的抽签结果或题目编号。得到题目编号之后，用户点击“打开题目”控制器即可查看自己所抽取的题目。参赛选手回答题目的同时，系统自动进入120s倒计时阶段，参赛选手回答完毕题目之后可以点击“参考答案”触发控制器按钮得知自己回答正确与否，并且可以点击“继续抽题”触发控制器按钮进行下一轮抽题环节，所有题目抽取完毕之后，系统会自动弹框提醒参赛选手“题目已抽完，请点击

7、初始化重新抽题!”。上述各控制器按钮之间的控制关联包括以下步骤：1.初始化控制端查询当前控制按钮是否激活，如果激活，执行步骤2；如果未激活，执行步骤5；2.系统状态输出显示端清空抽签记录及抽题记录，系统状态输出显示端输出“勤学务实，圆融卓越”企业文化精神，处理器统计数据库中题目总数量m；3.题目总数输出显示端等待接收初始化控制端反馈的题目总数m；4.题目总数输出显示端输出题目总数m；91.参赛人数输入显示端等待用户输入参赛总人数n指令；2.抽签控制端检测当前状态是否激活，如果激活，系统状态输出显示端输出“正在抽签”，并执行步骤7；

8、如果未激活，执行步骤12；3.抽签控制端随机发送一个小于n的数值到处理器；4.处理器查询当前数值是否重复，如果重复，执行步骤6；如果不重复，执行步骤9；5.处理器查询当前不重复次数是否大于n，如果大于n，警告弹窗提示端输出“抽签结束，请准备抽题。”