用ppt生成随机数，用于抽奖使用

1、第一步：打开一个ppt文档，然后选择“开发工具”---》选择按钮控件和文本框控件，并放在页面上

2、第二步：右击按钮控件，选择”控件属性“在左侧设置名称和其他样式

3、第三步：同理设置文本框的样式和名称等。

4、第四步：选择按钮控件，并右击，选择“查看代码”即可进入代码编辑页面

5、第五步：在代码编辑区域输入下面的代码即可：

Private Sub CommandButton1_Click()

Label1.Caption = 1 + Int(Rnd() * 1500)

End Sub

输入代码后，点击关闭即可。

代码说明：

(1):“CommandButton1”表示是按钮的控件名，是按照前面按钮属性中的一样。

(2):"Label1"表示是文本框的控件名。

(3):"1 + Int(Rnd() * 1500)"表示从1-1500中选择随机数

6、第六步：把文件另存为“存储为：启用宏的文档即可”

7、第七步：打开另存的文件，选择“启用宏”即可打开

8、第八步：选择“幻灯片放映”---》选择“从头开始”即可放映，然后点击按钮，即可生成随机数