随机抽题制作步骤

PPT轻松实现随机抽题设计抽题界面打开PPT2010，将演示文稿保存成启用宏的PPT演示文稿格式（即.pptm格式，包含宏代码的演示文稿，必须保存成这种格式），在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，展通过“开发工具选项卡，插入三个命按钮控件，在这些控件上右击，选择“属性命，打开它们的“属，阳对话框，在“名称后将命按钮名称分别修改为：开始、停止和打开抽取的题目，再在Caption后填写按钮上显示的名称（可随意大写，我这儿设置的与按钮名称相同），并对字体、字号、背景颜色、样式等进设置。再插入三个文本框控件，同样在“属，阳对话框中，修改它们的名称为：抽取框、结果框和已抽题目。把“抽取框放到“开始和“停止命按钮控件之间，扣“结果框放到“您抽取的是号题文本中，将“已抽题目拖至适合大小，放置到下面（图1）。立件•=t随机泊应赤号并打开,pptw-Mitna^cftP（n-^erPoipt洼入设计切凑或回寻性•E3色导妇"幻灯片28立件•=t随机泊应赤号并打开,pptw-Mitna^cftP（n-^erPoipt洼入设计切凑或回寻性•E3色导妇"幻灯片28BZ0SaUA'Am*Ij守体■1i普扫.晌f.AflctleraterFalseBukColor□itfBOOOOOOFfr】一frwB«ck5tyl40paq.n$Caption开抬En^UedTrufiFont砌摭崔F^reColcir■到削OCOOISH«esht6S[25y11C5LockedFalse|开的C4rM1U.iBQl14fL柱守母厚!按归类席:必答题第-开始停it您抽取的是号题打升抽取的题目已抽题目单击此处添加备注□奔1.茹..芯11我"OHke携，F急？匡j「EB噩瓯宅5雌一"口丁/-，.•.]□奔1.茹..芯11我编写宏代码接下来，按ALT+F11组合键，打开VBA宏编辑窗口，双击左侧的“Slidel，将以下代码复制到右窗格中并保存。PrivateSub开始_Click()停止.Enabled=True'停止按钮当前有效DimaAsIntegerRandomizeDoa=Fix(Rnd*10+1)'使用随机函数抽取框.Text=a结果框.Text=""DoEventsLoopEndSubPrivateSub停止_Click()结果框.Text=抽取框.Text已抽题目=已抽题目+抽取框+"#"'题目标记用#分隔停止.Enabled=FalseEndEndSubPrivateSub打开抽取的题目_Click()ActivePresentation.SlideShowWindow_.View.GotoSlideVal(抽取框.Text+1)

EndSub随机抽取题目并打开到抽取题目时，放映幻灯片，点击第-张的“开始按钮，此时其后的文本框中就随机快速滚动显示1到10这十个数字，，点击“停止按钮后，数字停止滚动，并显示出抽取的题号，同时在上方给出“您抽取的是X号题提示，在下方“已抽题目中显示出所有抽过的题目标号。点击下方的“打开抽取的题目按钮，换到抽取题目幻灯片，选手做完题目后，点击返回链接，回到抽取题目页面，继续为下一个选手抽题（图2）。tAb必答题第一轮随机抽题占7..您抽取的是10号题tAb必答题第一轮随机抽题占7..您抽取的是10号题开始10停止打开抽取的题目己抽题目己抽题目8#5#9#4#10#小提示：在幻灯片放映状态下，可以选中三个文本框控件中的文本，删除它们，达到清的目的。代码图示宏代码PrivateSub开始_Click()停止.Enabled=True'停止按钮当前有效DimaAsIntegerRandomizeDoa=Fix(Rnd*10+1)'使用随机函数抽取框.Text=a结果框.Text=""DoEventsLoopEndSubPrivateSub停止_Click()结果框.Text=抽取框.Text已抽题目=已抽题目+抽取框+"#"'题目标记用#分隔停止.Enabled=FalseEndEndSubPrivate