用PPT制作随机不重复抽取小程序

用PPT做一个随机抽取小程序
年底的年会来了，想做一个简单的随机抽取的小程序，最好能放映PPT的时候直接超链接过来，所以诞生了这段代码。

一、PPT界面介绍：
首先介绍PPT界面，制作PPT界面如下：
图1 PPT界面
界面中内含7个命令按钮，1个标签，6个文本框，与编程相关。

红色字体为艺术字，艺术字和形状与编程无关，可任意制作。

二、主要功能
以下介绍其功能及操作方法：
1.当前为25人随机抽取，放映幻灯片后，单击【抽取】，抽到的姓名会出现在【抽取结果】位置，在下方获奖名单处的任意位置点击右侧【写入】，可写入【抽取结果】处当前的姓名。

2.下方已写入的姓名，之后点击【抽取】将不会再抽到。

3.幻灯片放映结束后，写入的获奖姓名不会消失，会留下来，点击保存后关闭幻灯片再打开，姓名依旧存在，适用于穿插随机抽取，多次打开的情况。

若要清空名单，在幻灯片放映状态单击【清空】即可。

三、代码构成
接下来介绍其代码构成：
对第一个按钮右键打开属性表，设置其名称为Command，Caption为“抽取”，如图二。

下面三等奖的三个按钮，设置其名称为“xieru31”、“xieru32”、“xieru33”，二等奖的两个按钮为“xieru21”、“xieru22”，一等奖的一个按钮为“xieru11”，这6个按钮的Caption均为“写入”。

图2 “抽取”按钮属性表示例
抽取结果显示在标签中，打开它的属性表，设置名称为“Label”。

获奖名单可写入在六个文本框中，打开它的属性表，三等奖三个文本框设置名称为“yhj31”、“yhj32”、“yhj33”，二等奖两个文本框设置名称为“yhj21”、“yhj22”，一等奖一个文本框设置名称为“yhj11”。

最后一个清空按钮，用于清空标签和文本框的左右数据，打开它的属性表，设置名称为“qingkong”，Caption为“清空”。

双击“抽取”按钮打开程序界面，输入代码如下：
双击清空按钮，输入代码如下：
每一个“写入”按钮的代码如下：
双击【抽取】，弹出程序界面，将里面的语句全部删除，将代码上述代码整个放置到里面即可。

应读者的不同需求，随机抽取的姓名和人数各不相同，修改方法如下：
1.未放映状态下，双击【抽取】进入程序界面，在“姓名一”~“姓名二十五”处可以修改姓名；
2.改人数需在“renshu = 25”处将25改为实际人数，“arr(24)”处将24改为实际人数-1，并将“姓名一”~“姓名二十五”这几行，人数不足25则删除行，人数大于25则往下继续补充。

四、注意事项
以下为注意事项：
1.打开幻灯片时，需选择启用“宏”。

PPT需存为“启用宏的powerpoint演示文稿”，格式
为pptm。

2.在PPT未放映时编辑代码，在PPT放映时操作清空。

3.点“写入”将当前获奖人写入旁边的文本框，未点“清空”之前，结束放映后文本框中的名
字可以留存，保存PPT，下次打开依旧留存。

因此使用时，若此随机抽取小程序PPT 应用于穿插多轮随机抽取的情况，可将活动总体PPT的多轮随机抽取皆超链接至此同一随机抽取小程序PPT，此随机抽取小程序PPT拥有连贯性，上一轮写入的获奖姓名不会消失。

若此随机抽取小程序PPT应用于非连贯性多次随机抽取，每次结束放映这一页面前，单击“清空”按钮，下一次再超链接至这一页面将为空，或者备份此此随机
抽取小程序PPT页面，分别超链接至多轮随机抽取，也可满足需求，具有很强的灵活性。

4.已写入的名字不会重复抽到，适用于不能重复获奖的情况。

若读者的实际情况是允许
一人重复获奖，可将上文的“抽取”按钮对应的代码中，删除以下这段：
即可实现重复抽取。

五、结语
以上随机抽取小程序操作简单，修改方法简单，抽到的姓名随机，可做到不重复，中奖名单可留存，页面适合多次调用，非常适合年会、班会等游戏环节，使用PPT制作，方便嵌套到各种活动PPT中，非常实用。