ppt随机产生随机数

1、第一步：打开ppt（我用的是wps）第二步：点开“开发工具”如下图：

3、第四步：生成如下图的样式：

5、第六步：点击如下图的“宋体”中，可以选择字体属性：

7、第八步：把右下角的按钮控件如上步骤弄好。弄好后出现下图：

9、第十步：把下面的代码复制到里面，代码如下：Public a, b As IntegerPrivate Sub CommandButton1_Click()b = 0Do While Truea = 1 + Int(Rnd() * 1900)Label1.Caption = aDim Savetime As SingleSavetime = TimerWhile Timer < Savetime + 0.005DoEventsWendIf b = 1 ThenExit DoEnd IfLoopEnd Sub图如下：

11、第十二步：按ctrl+s键会出现如下窗口：

13、下面是代码的解释部分：Public a, b As Integer //声明两个全局变量a和bPrivate Sub CommandButton1_Click() //一个按钮点击事件b = 0 //把变量设为0，这是一个标志量，为0时执行随机函数，为1 时执行停止操作Do While True //无限循环，使随机数变化。a = 1 + Int(Rnd() * 1900) //产生随机数表达式，1900代表的是1~1900之间的随机数Label1.Caption = a //使标签控件显示生成的随机数。Dim Savetime As Single //这五行用于延时，防止系统死掉Savetime = TimerWhile Timer < Savetime + 0.005DoEventsWendIf b = 1 Then //判断b值是否为1，如果为1，则停止产生随机数。Exit Do //退出无限循环End If //否则，继续执行无限循环Loop //无限循环End Sub //函数结束标志Private Sub CommandButton2_Click() //这是停止控件的监听事件b = 1 //把b值设为1.Label1.Caption = a //把选择的随机数显示出来End Sub //函数结束标志