首页 >  知识中心 >  新闻详情

ppt随机滚动抽名字 怎么用ppt实现一个随机抽取名字的功能

来源:朵拉利品网  |  2020-05-16 10:24:58

1, 怎么用ppt实现一个随机抽取名字的功能



以PowerPoint 2007为例(2010及以上类似,2003直接“视图→工具栏→控件工具箱”即可)
打开PowerPoint,将文件保存为*.pptm格式(包含宏代码的演示文稿)
若没有“开发工具”选项卡,请打开
命令按钮控件:一个命名为“开始”,另一个命名为“清除”(选中控件,更改“属性”当中的“Caption”)
可根据自己的需要,更改“文本框”以及“命令按钮”字体、字号等属性
编写程序(示例)双击“开始”按钮,弹出程序编写框,在中间空白处输入以下内容:
Dim a As Integer
Dim s As String
Dim c As Integer
s = "张三丰张无忌王小明李鸣 "
c = Len(s)
a = Int(((c / 3) * Rnd) + 1)
TextBox1.Text = Mid(s, 3 * (a - 1) + 1, 3)
可将“s = "后的内容改为自己需要的名字,注意三个字的不加空格,两个字的后面要加一空格
双击“结束”按钮,在中间空白处输入:
TextBox1.Text = ""
这样便可以实现随机抽取姓名的功能

2, 求助关于PPT中如何实现随机抽取30个题目,而且不重复~谢谢!



有篇文章,我截图给你看
打开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)。

名词解释


抽取

游戏王卡片系列。 以卡牌名「Drain / ドレイン」为关键词的卡牌所组成的卡集。只有陷阱卡。 卡图上的分别是怪兽「冥界的魔王 哈·迪斯」与「深渊的冥王」。

题目

题目,是一个汉语词语,意思有十一种。其一指标题,篇目。其二指品评。其三指题识,名称。其四指试题,习题。其五指为问题。其六指主题,命题。其七指话题。其八指借口,名义。其九指名堂,花样。其十指迷信所说的命相。其十一见\"题目正名\"。

按钮

按钮(按键)是一种常用的控制电器元件,是用来控制机械或程式的某些功能,或接通、断开控制电路,从而达到控制电动机或其他电气设备运行目的的一种开关。一般而言,红色按钮是用来使某一功能停止,而绿色按钮,则是开启某一项功能。

 
相关新闻
PET PET是什么材料?可以做什么? 07-24
iptv什么意思 IPTV是什么? 11-22
type-c Type 02-07
ppt视频播放不了怎么回事 ppt中的视频无法播放 03-06
ppt是什么 ppt是什么 怎么做 03-06
ppt视频 如何在PPT中插入一个视频,而在其他电脑也可以播放? 03-06
ppt是什么意思 PPT 是什么意思 03-06
ppt如何录音制作成视频 ppt怎么录制成视频 03-06
ppt什么意思 ppt是什么 怎么做 03-06
学大教育ppts ppts有什么用? 03-06
相关产品
TYMJ-E#(5门带底抽衣柜) 05-14
TYMJ-G#(4门带底抽衣柜) 05-14
【进口PETP板,白色PETP板】PETP板 06-10
进口PETP板,德国PETP板,PETP板 06-10
PBT板,PBT板价格,PBT板批发 06-10
仟井抽湿器干衣机干燥机除湿机TH-25CSH家用抽湿机负离子 06-20
淘宝热卖新款刻乐圃COLOP Printer P20S 带底盖款名字贴印章材料 06-26
宣城市腾景TJ2016-546太阳能垃圾箱/广告垃圾箱/滚动灯箱 06-29
IPM 插桶泵 立杆式柱塞泵 高粘液体抽送泵 金属长短插桶泵 IP-01 07-05
德国胶宝TPE TC3GPZ TPE物性表 07-21

大家都在看