| ppt随机滚动抽名字 怎么用ppt实现一个随机抽取名字的功能 | 您所在的位置：网站首页 › ppt滚动抽题怎么做 › ppt随机滚动抽名字 怎么用ppt实现一个随机抽取名字的功能 |
ppt随机滚动抽名字 怎么用ppt实现一个随机抽取名字的功能
1, 怎么用ppt实现一个随机抽取名字的功能 以PowerPoint 2007为例（2010及以上类似，2003直接“视图→工具栏→控件工具箱”即可）打开PowerPoint，将文件保存为*.pptm格式（包含宏代码的演示文稿）若没有“开发工具”选项卡，请打开命令按钮控件：一个命名为“开始”，另一个命名为“清除”（选中控件，更改“属性”当中的“Caption”）可根据自己的需要，更改“文本框”以及“命令按钮”字体、字号等属性编写程序（示例）双击“开始”按钮，弹出程序编写框，在中间空白处输入以下内容：Dim a As IntegerDim s As StringDim c As Integers = "张三丰张无忌王小明李鸣 "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 IntegerRandomizeDoa = Fix(Rnd * 10 + 1) "使用随机函数抽取框.Text = a结果框.Text = ""DoEventsLoopEnd SubPrivate Sub 停止_Click()结果框.Text = 抽取框.Text已抽题目 = 已抽题目 + 抽取框 + " # " "题目标记用#分隔停止.Enabled = FalseEndEnd SubPrivate Sub 打开抽取的题目_Click()ActivePresentation.SlideShowWindow_.View.GotoSlide Val（抽取框.Text + 1）End Sub随机抽取题目并打开到抽取题目时，放映幻灯片，点击第一张的“开始”按钮，此时其后的文本框中就随机快速滚动显示1到10这十个数字，点击“停止”按钮后，数字停止滚动，并显示出抽取的题号，同时在上方给出“您抽取的是X号题”提示，在下方“已抽题目”中显示出所有抽过的题目标号。点击下方的“打开抽取的题目”按钮，切换到抽取题目幻灯片，选手做完题目后，点击返回链接，回到抽取题目页面，继续为下一个选手抽题（图2）。名词解释抽取游戏王卡片系列。 以卡牌名「Drain / ドレイン」为关键词的卡牌所组成的卡集。只有陷阱卡。 卡图上的分别是怪兽「冥界的魔王 哈·迪斯」与「深渊的冥王」。 题目题目，是一个汉语词语，意思有十一种。其一指标题，篇目。其二指品评。其三指题识，名称。其四指试题，习题。其五指为问题。其六指主题，命题。其七指话题。其八指借口，名义。其九指名堂，花样。其十指迷信所说的命相。其十一见\"题目正名\"。 按钮按钮（按键）是一种常用的控制电器元件，是用来控制机械或程式的某些功能，或接通、断开控制电路，从而达到控制电动机或其他电气设备运行目的的一种开关。一般而言，红色按钮是用来使某一功能停止，而绿色按钮，则是开启某一项功能。 |
【本文地址】
公司简介
联系我们