怎样在ppt中生成随机数字

方法/步骤

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

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

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

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

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

Private Sub CommandButton1_Click（）

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

End Sub

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

代码说明：

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

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

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

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

7

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

8

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

还是挺简单的。步骤如下。

1)打开ppt。

2)打开“控件工具箱”， 步骤：菜单视图>工具栏>控件工具箱。

3)用控件工具箱画控件。

4)在控件上右键，通过“属性”命令设置每一个控件的属性。

5)在某一个控件上右击，选择“查看代码”，这时就出现了Visual Basic窗口。

6)现在你可以像在VB里编写程序一样，来编写每一个控件的代码。

在这里，每一张幻灯片就是一个对象，它的级别和窗体相当。幻灯片上的控件是幻灯片对象的子控件。

步骤就是这样。下面我举一个例子。

新建ppt.

在幻灯片1上画一个CommandButton,一个Label。

将CommandButton1的Caption属性设置为"生成随机数",Label1的Caption属性设置为空白。

在CommandButton1控件上右击，进入Visual Basic界面，编写代码：

Private Sub CommandButton1_Click()

Slide1.Label1.Caption = Int(Rnd * 100 + 1)

End Sub

这句代码可以生成一个1到100之间的随机整数，并把它输出到label1。

还要注意一点，这里编写的VB程序实际上就是“宏”。很多人把病毒编写为宏，随着用户打开ppt文档，病毒就进入了你的电脑。所以为了安全，很多人都把宏禁用了。但是宏如果被禁用了，那么我们刚才编写的程序就不起作用了。所以我们还应该启用宏，方法是ppt中的工具>选项菜单，“安全性”选项卡，“宏安全性”按钮，在d出的“安全性”窗口中就可以设置宏的安全级别。

————

我都写了这么多了，觉得好就给分吧 ^_^

---