求一个能产生随机数的ppt

让PPT出现一个随机数
在设计这个显示随机数之前，我们想来想想显示这个随机数都需要哪些东西。首先需要一个开始的按纽，点一下按纽才能开始显示；其次需要一个清空的按纽，点一下把刚才显示的随机数字清除掉；第三，还要有一个显示器，就是显示数字的地方。 准备工作：把开发工具栏添加到菜单上来。点office按钮--powerpoint选项--常用--第三项“在功能区显示开发工具选项卡”，这样就可以把开发工具添加到菜单栏了。 做第一个按纽：新建一张幻灯片--点击开发工具--命令按纽--在幻灯片中画一个按纽--双击刚画出的按纽--在弹出的VB编程栏中输入如下代码：Label1.Caption = 1 + Int(51 * Rnd())，其中的51就是在51以内显示随机数，可以更改。还可以在caption中修改按纽的名字，比如起名“开始”。 做第二个按纽：用同样的方法画一个按纽--双击按纽--输入：Label1.Caption = ""。同样可以给该按纽起名，比如“清空”。 做显示数字的标签：点击标签--画一个小方框，此方框就是显示数字的显示器--方框的代码中什么都不要输。 好了，现在播放幻灯片，就可以得到1到51中间的随机数了。
源自：http://