如何在PPT里做一个随机抽取人名不重复

更新时间2019-03-21 05:36:20

以PowerPoint 2007为例（2010及以上类似，2003直接“视图→工具栏→控件工具箱”即可）打开PowerPoint，将文件保存为*.pptm格式（包含宏代码的演示文稿）若没有“开发工具”选项卡，请打开通过“开发工具”选项卡，插入一个文本框控件，和两个命令按钮控件文本框控件：命名为“TextBox1”（选中控件，更改“属性”当中的“(名称)”）命令按钮控件：一个命名为“开始”，另一个命名为“清除”（选中控件，更改“属性”当中的“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 = ""这样便可以实现随机抽取姓名的功能