1、第一步：打开一个ppt文档，然后选择“开发工具”---》选择按钮控件和文本框控件，并放在页面上
3、第三步：同理设置文本框的样式和名称等。
5、第五步：在代码编辑区域输入下面的代码即可：Private Sub CommandButton1_Click()Label1.C锾攒揉敫aption = 1 + Int(Rnd() * 1500)End Sub输入代码后，点击关闭即可。代码说明：(1):“CommandButton1”表示是按钮的控件名，是按照前面按钮属性中的一样。(2):"Label1"表示是文本框的控件名。(3):"1 + Int(Rnd() * 1500)"表示从1-1500中选择随机数
7、第七步：打开另存的文件，选择“启用宏”即可打开
