PPT中VBA编程制作随机抽题系统

PPT中VBA编程制作随机抽题系统PPT中VBA编程制作随机抽题系统摘要,本随机抽题系统以毕业答辩为例结合VBA编程和微信公众号互联网技术,改变了传统活动现场环节中的纸质化抽签及抽题的形式,同时还具有答题倒计时功能。本随机抽题系统可适用于毕业答辩、课堂教学互动、晚会现场抽奖、教学知识竞赛、面试随机抽题等需要随机抽签或抽题的场合。该系统能够使每一位在场用户通过投影仪屏幕同时看到随机所抽题目,相比传统纸质抽题更公平公正关键词,VBA编程,随机抽题,随机抽签,微信公众号,倒计时中图分类号,TP37 文献标识码,A 文章编号,1009-3044...

ppt 中VBA编程制作随机抽题系统摘要,本随机抽题系统以毕业答辩为例结合VBA编程和微信公众号互联网技术,改变了传统活动现场环节中的纸质化抽签及抽题的形式,同时还具有答题倒计时功能。本随机抽题系统可适用于毕业答辩、课堂教学互动、晚会现场抽奖、教学知识竞赛、面试随机抽题等需要随机抽签或抽题的场合。该系统能够使每一位在场用户通过投影仪屏幕同时看到随机所抽题目,相比传统纸质抽题更公平公正关键词,VBA编程,随机抽题,随机抽签,微信公众号,倒计时中图分类号,TP37 文献标识码,A 文章编号,1009-3044,2016,30-0100-03 1背景意义随着电子行业的突飞猛进,计算机及其应用软件走进了人们的生活,我们应该充分利用电子产品资源。例如,在高校毕业答辩、研究生入学面试等各个抽题环节中一般采用纸质化抽题,这样不仅浪费纸张、浪费碳粉,同时打印机在打印过程中所消耗电能以及微细碳粉对环境产生的危害也不可忽视。我国仍有大部分地区实行火力发电,需要消耗煤炭,而纸张来源于树皮,这些纸张、电能的消耗都间接导致温室 1 效应,不符合国家长期发展的要求。通过微信公众号,学生在答辩环节中还可以参与投票表决互动,选出自己认为最佳答辩毕业生。在高校研究生面试、企业面试、教学知识竞赛、晚会比赛等活动中,通过使用本系统中引用的二维码技术仍然可以满足不同用户的需求 2技术方案本随机抽题软件可根据参赛选手总人数,自动设置抽签数量,参赛选手只需要点击“开始抽签”控制按钮便可随机滚动生成签号,此时系统状态输出显示器会显示“正在抽签”,点击“停止抽签”控制按钮即可获得自己的抽签结果,此时系统状态输出显示器会显示“您抽的是×号签”。参赛选手点击“开始抽题”控制按钮时便可高速滚动显示题目编号,此时系统,钐,输出显示器会显示“正在抽题”,参赛选手点击“停止抽题”控制按钮即可随机不重复获得一个题目编号,此时系统状态输出显示器会显示“请您回答×号题”。此时点击“打开题目”控制器即可查看自己抽取的题目,参赛选手回答题目的同时,系统自动进入120s倒计时阶段,参赛选手回答完毕题目之后可以点击“参考答案 ”触发控制按钮得知自己回答正确与否,并且可以点击“继续抽题”触发控制器按钮进行下一轮抽题环节,所有题目抽取完毕之后,系统会自动弹框提醒参赛选手“题目已抽完,请点击初始化重新抽题，” 3代码内容 2 PPT中使用VBA方法目前已经有较多参考文献讲述,在此不再详述,本次随机抽题所用VBA编码如下, Dim Canbeuse, QuestionNum1, QuestionUsed1, QuestionNum2, QuestionUsed2, arrRM, FCQXS, F As Integer Dim flag As Boolean Private Sub 抽取框_Change,, End Sub Private Sub 初始化_Click,, Call CQ_do1,”stop”, Call CQ_do2,”stop”, Canbeuse = 1 取框.ForeColor = &HC00000 抽取框.Text = “圆融” 已抽题目.Text = ““ 已抽签.Text = ““ 文字描述.Text = “勤学务实卓越” Me.开始抽签.Caption = “开始抽签” Me.开始抽题.Caption = “开始抽题” QuestionNum2 = ActivePresentation.Slides.Count - 1 题目总数.Text = QuestionNum2 End Sub 3 Private Sub 开始抽签_Click,, 抽取框.ForeColor = &HFF& If Me.开始抽签.Caption = “停止抽签” Then Me.开始抽签.Caption = “开始抽签” Call CQ_do1,”stop”, Else Me.开始抽签.Caption = “停止抽签” Call CQ_do1,”start”, End If End Sub Private Sub CQ_do1,doTag, QuestionNum1 = 总人数.Text QuestionUsed1 = Split,Me.已抽签, “ , “, -1, 1, Canbeuse = 1 If doTag = “start” Then F = 0 If UBound,QuestionUsed1, Dim J, m Canbeuse = 1 For J = 1 To UBound,QuestionUsed1, m = QuestionUsed1,J - 1, If QuestionUsed1,J - 1, = n Then Canbeuse = 0 4 Exit For Else End If Next If Canbeuse = 1 Then 已抽签 = 已抽签 + 抽取框.Text + “ , “ ‘题目标记用 , 分隔 Exit Do End If End If DoEvents Loop Else MsgBox ,”抽签结束,请准备抽题。”, End If Else F = 1 End If End Sub Private Sub 开始抽题_Click,, 抽取框.ForeColor = &HFF& If Me.开始抽题.Caption = “停止抽题” Then 5 Me.开始抽题.Caption = “开始抽题” Call CQ_do2,”stop”, Else Me.开始抽题.Caption = “停止抽题” Call CQ_do2,”start”, End If End Sub Private Sub CQ_do2,doTag, QuestionNum2 = ActivePresentation.Slides.Count - 1 QuestionUsed2 = Split,Me.已抽题目, “ , “, -1, 1, Canbeuse = 1 If doTag = “start” Then F = 0 If UBound,QuestionUsed2, 6

                    本文档为【PPT中VBA编程制作随机抽题系统】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

PPT中VBA编程制作随机抽题系统

你可能还喜欢