使用PPT编写一个序号抽奖

PPT编写随机数抽奖

某次学校学生会需要一个ppt随机数抽奖，群里有两位大神先解决了问题，我也试着尝试了一下，搜了网上好多资料，用了两个小时终于做好了，话说，原来PPT可以写VB吗
首先，新建一个PPT在开发工具中找到各项控件，拖动到PPT中
双击控件，对各空间进行代码操作，在属性中调节各个控件的参数，需要时修改下字体大小，将对话框关闭后放映PPT即可。

额外说明：因为用到了宏所以需要另存一个可以支持宏的PPT，后缀由pptx变为pptm

Public a, b As Integer
Private Sub CommandButton1_Click()
b = 0
Do While True
a = 1 + Int(Rnd() * 300)
Label1.Caption = a

Dim Savetime As Single
Savetime = Timer
While Timer < Savetime + 0.005
DoEvents
Wend

If b = 1 Then
Exit Do
End If
Loop


End Sub

Private Sub CommandButton2_Click()
b = 1
Label1.Caption = a
End Sub

Private Sub Label1_Click()

End Sub