龙源期刊网httpwwwqika
comc
PPT轻松实现随机抽题
作者：王琳来源：《电脑爱好者》2012年第17期
为了做到公平公正、趣味性更强，我在PPT中制作好抽题界面，再使用简单的宏，实现了随机抽取和题目实时显示。
设计抽题界面
打开PPT2010，将演示文稿保存成启用宏的PPT演示文稿格式（即pptm格式，包含宏代码的演示文稿，必须保存成这种格式）。在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，通过“开发工具”选项卡，插入三个命令按钮控件。在这些控件上右击，选择“属性”命令，打开它们的“属性”对话框，在“名称”后将命令按钮名称分别修改为：开始、停止和打开抽取的题目，在Captio
后填写按钮上显示的名称（可随意大写，我这儿设置的与按钮名称相同），并对字体、字号、背景颜色、样式等进行设置。
再插入三个文本框控件，同样在“属性”对话框中，修改它们的名称为：抽取框、结果框和已抽题目。把“抽取框”放到“开始”和“停止”命令按钮控件之间，把“结果框”放到“您抽取的是号题”文本中，将“已抽题目”拖至适合大小，放置到下面（图1）。
接着新建一张幻灯片，设计好被抽题目放置界面，并在其上设计一个返回到抽题界面幻灯片的链接。将该幻灯片复制多份，将相应题目录入相应各幻灯片上，第二张幻灯片放第一道题目，第三张幻灯片放第二道题目，依次类推。
编写宏代码
接下来，按AltF11组合键，打开VBA宏编辑窗口，双击左侧的Slide1，将以下代码复制到右窗格中并保存。
PrivateSub开始_Click
停止E
abledTrue停止按钮当前有效
DimaAsI
teger
Ra
domize
Do
aFixR
d101使用随机函数
f龙源期刊网httpwwwqika
comc
抽取框Texta结果框Text