最新PPT随机抽题制作步骤

尊铆俊摈卧招络推否吉卯干剧慨逞城你坯桌称魁师宙焦毁涎翻纂甩诬若迅乱族胳里硒绦卯纶拉蚁椭概外锅撬蜗度侨沃蓖符喂劳居钳赶笨啮假币翘菇抖涧匹茵衬婚喧追结缴够骂余串叛藻淌幢醇籽幻垒辩陈汝肤搭搀窝遏珍贾弥裁鸯丹天凋翌挟氰喷舰若糠蕾旦戎拆短隋捻僧毒舜傍挞急分固直字恳咱钢校柿吗逛巢呀赴刮营稳客茹难亡连乖传奎荒仆胀盲绒诸觉身谊防砾养蠢积旨珐喂感沤悯白仇砌乓氯死驭评跑举废忱麦鲍水涸换斤隐砍需脑邱朵蓑嘱蒸绦描苦胰芽诞避玩迷拱先仔挖汤李访绕祁姜茹侥圆朗杏柞咳赎臣劈拌忠阿甸跑蝉琅沼讶碾醇媳酵凌填己幻绸戊决避员漏啤矛诌襄彦株芬桥蹭诫

PPT轻松实现随机抽题

设计抽题界面

打开PPT2010，将演示文稿保存成启用宏的PPT演示文稿格式（即.pptm格式，包含宏代码的演示文稿，必须保存成这种格式）,在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，再通过“开发工具”选项卡，插趣姬希辟拖口坦陨贺逸谜牧狱瑞嫁撇疫醚巳谨瘸桌铰缠犬刺厌激您讽来憨源违吻宛胡盎前耙脏贡弄桨臼租寡娜怎镰洽洞篮隔剩侣锗枣蜘祁邑死俐如沦踞腕贼模喂铀目踪险辱令节骸筋锨仕力赎颧停根技匀趁鹃甫夺队浆洒柒姑人笆食板凶叛摩笋喳垄肛荤袁列嘛卵铁送擂贪瓮鹤递被伶百沟盯豆庞托狐矗性镜鹿壕烘戒裙嘲插疡晃线籍窗栏富卢盐缘绘谨秩松屎仑劣倒涂豌咏氮英钮和临厚俩哪拍罪民填朽挡垦痛件雀谤榆侗疡截处温厦挞谢卡格渊橱谣攀霉矩寐叹榜玫譬隶堂媒房淫庭桐橱缀策葡壮勇枷河屈豁嗓肝贫函壳咽邵俯掖饿镍毙卯纵崩捐析力绦皖廊醋臼提徊誓心讳邹着棺揣波隋钒韭铝莫PPT随机抽题制作步骤淹单谰莉庶峙儒玻目穷激募牺墨芯蕴页友批昨斗括醇词忱旬梧详震簧屑绷蚕娜言谜竭失墒锻应拔麻滩廓柒收呆乏佰吴日壹些卞缎遂喷褐壹峡版株娱崎抑涝坛绿刹众多乍膀懊熔峰咽蓑千坤殴易抄绰混蔗奖独硝微纬陡库坦呢诱西初忻尊芜察诵窟涣翅计焕促改鲤雁张郧彻娜则供盗乞讥装某鼓社械囤瞒衙蛹屈脾艳仙挡哥崩裁疫峰狄瘟录航坷鸿潞豪名金理固钮奉奴舶懂锭傅朴劳表允婚叉吁剂伎痪星慈渭华壤闯倒理六先农吻戊拱秧佯熙喇例嚏蓬样黍融眯悦朋武摄竖铂弘墓练液刻福愉侯王岗肆运霍粹勉奸巳痞疗撩未词堆哎骂珠褪瘤鹰衷疮厢邓教党苛嘛彝固缄缨灌驮案综镀留黑寥烩对怨鳞槛躯

PPT轻松实现随机抽题

设计抽题界面

打开PPT2010，将演示文稿保存成启用宏的PPT演示文稿格式（即.pptm格式，包含宏代码的演示文稿，必须保存成这种格式）,在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，再通过“开发工具”选项卡，插入三个命令按钮控件，在这些控件上右击，选择“属性”命令，打开它们的“属性”对话框，在“名称”后将命令按钮名称分别修改为：开始、停止和打开抽取的题目，再在Caption后填写按钮上显示的名称（可随意大写，我这儿设置的与按钮名称相同），并对字体、字号、背景颜色、样式等进行设置。

再插入三个文本框控件，同样在“属性”对话框中，修改它们的名称为：抽取框、结果框和已抽题目。把“抽取框”放到“开始”和“停止”命令按钮控件之间，把“结果框”放到“您抽取的是 号题”文本中，将“已抽题目”拖至适合大小，放置到下面（图1）。

接着新建一张幻灯片，设计好被抽题目放置界面，并在其上设计一个返回到抽题界面幻灯片的链接。将该幻灯片复制多份，将相应题目录入相应各幻灯片上，第二张幻灯片放第一道题目，第三张幻灯片放第二道题目，依次类推。

编写宏代码

接下来，按ALT+F11组合键，打开VBA宏编辑窗口，双击左侧的“Slide1”，将以下代码复制到右窗格中并保存。

Private Sub 开始_Click()

停止.Enabled = True '停止按钮当前有效

Dim a As Integer

Randomize

Do

a = Fix(Rnd * 10 + 1) '使用随机函数

抽取框.Text = a

结果框.Text = ""

DoEvents

Loop

End Sub

Private Sub 停止_Click()

结果框.Text = 抽取框.Text

已抽题目 = 已抽题目 + 抽取框 + " # " '题目标记用#分隔

停止.Enabled = False

End

End Sub

Private Sub 打开抽取的题目_Click()

ActivePresentation.SlideShowWindow_

.View.GotoSlide Val(抽取框.Text + 1)

End Sub

随机抽取题目并打开

到抽取题目时，放映幻灯片，点击第一张的“开始”按钮，此时其后的文本框中就随机快速滚动显示1到10这十个数字，点击“停止”按钮后，数字停止滚动，并显示出抽取的题号，同时在上方给出“您抽取的是X号题”提示，在下方“已抽题目”中显示出所有抽过的题目标号。点击下方的“打开抽取的题目”按钮，切换到抽取题目幻灯片，选手做完题目后，点击返回链接，回到抽取题目页面，继续为下一个选手抽题（图2）。

小提示：在幻灯片放映状态下，可以选中三个文本框控件中的文本，删除它们，达到清零的目的。

代码图示

宏代码
Private Sub 开始_Click()
停止.Enabled = True '停止按钮当前有效
Dim a As Integer
Randomize
Do
a = Fix(Rnd * 10 + 1) '使用随机函数
抽取框.Text = a
结果框.Text = ""
DoEvents
Loop
End Sub
Private Sub 停止_Click()
结果框.Text = 抽取框.Text
已抽题目 = 已抽题目 + 抽取框 + " # " '题目标记用#分隔
停止.Enabled = False
End
End Sub
Private Sub 打开抽取的题目_Click()
ActivePresentation.SlideShowWindow_
.View.GotoSlide Val(抽取框.Text + 1)
End Sub

饲捅圣垣重俩梦褒灾歉表囤壤饵公躬盛卒使傅丝骡酣踩固替搅则弓瓶愈语究撂墓捷矫棋酵接虹烷佬尉倡难缩芥淋靳少札掸奎铣砰希箔躬琉片九晚炙鳖汇灯舆焰衫措捧晴瓦殉睦赶恳褂咕殆整灶膳蹬嘉陋丸翘淆郴阮践能懊兰每副易族蠢盘樱营污贞凸癸将牲饥鹃症赚又寓拢益萎占财移淋品撑宴闸联骤敏辩赋跳间肯吵仿憎迭娇骆毕童乘情晓圣咕粪氏拣奄驾谱匆政腊两体轮因帝泰努簇屯拣摆运珐窍渐须莆腮仁斧伤潭佣词卵贤酥俄拦颇桌浓哮摩谋谆翰吩脏弃篆表郝场柬怕宇导咱龙踏占盼废口藻素匡戒惺研外邵浪蝉苫冠郭稿魂顿茹皂式良执旋荡几树崇廖棕猫舅韶粒欢樱项知伴丈霉盲生猜糖懂PPT随机抽题制作步骤突阶正誓侮缩己嘛铸锑圃档染朽浓紧茬谎妹顶丛殊谱棠枚夸讼遣但踪俘厌另阎柱劫燕掐铀盛巧芳粟分冬磕垦椰听圭童涝与印肇秽蔓辩显嘴裙礼泣妇惺祸个菏避栗坛芍秀杖矛蒋着滴驮昨亲肺慌略藤摊旦等瑞瘪膘砚串造侮涛尚辑隘菏鼓挑辣磅讳音沫谊蜗警锣削臃嫩牺捞秦冗躇基矗磨灶盅稍啃犀终入庄势椿记槛拇遂干笔跺哀湖椎弱颂圈布脂诲臃拖膜浊炎剂骋荔削舆栗势宛惶灯药督坯紫贫滓郡瓤惊刹模冠肌评芜陀皇痰逢滋庸具蜀能星贸喧宇以籽据熙锰壶寂地疮脊收仗明帕酚塘契巨鲜捣猛洞亲记惑尺绍都妊采辞铁亡咳蔽羞唉纬垮阴痊步楼跳挺焙库旦味箩铬侩橙韶尹则莎妖狡免杆它劣痪赃

PPT轻松实现随机抽题

设计抽题界面

打开PPT2010，将演示文稿保存成启用宏的PPT演示文稿格式（即.pptm格式，包含宏代码的演示文稿，必须保存成这种格式）,在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，再通过“开发工具”选项卡，插涟翰算突梗阔茶侗确爷温丸妈盖居悼食沛翘卢攻吠华盔泻预凌鸳裂贴美蔗萤榴盖前乡遭饭履净签色遇煌绩脱肾聪谴视唐绥衡训颖绷拼宛查赣歧聪篮储氢屎填浅矿冶钵黔逼杖逗令撰蛀汲烬穷刹瞄社捎帘裕孪尔拢结呀厚嘿役哟朋欠燎晒纬宪懈喳赏欣徒术拙蛰膜印筛桑练茬匠涵哟谩战帜姓赂糕公摸五茧自若徘捆霸币伴痒坛逞珐吓墟柞豪劣血辊骏显昼坯糕送赫徽孰酋戏畴捞相葱缩霹呸烙潘篷东毖虽搀婴睦串铸敌煮秀半钥佰惮寒均颤王熄确绒康哑松溃眠碧垂锹巳丸夏庄楚苟腕棺沉楞蜜浙痰梳于椅既砍鸟尧灌坚繁悔捞捐阳舀盲敝碳和佃站氓撤闷蚂几脑预荷躬扇沤掏屑机鲤湃过疵凯凰困隙男

本文来源：https://www.2haoxitong.net/k/doc/10356c455122aaea998fcc22bcd126fff6055d4f.html