急求一个可以随机生成1-20随机数的PPT!!求大神帮忙啊！！！！

公司要用一个随机出题的PPT，一共20个题目，想做个随机出数字的PPT，然后链接到后面的题目，谢谢大神们啊！！！！拜托发给我！598572753

用开发工具，在第一页放入一个按钮控件和一个标签控件。（如在主窗口没看见开发工具选项，可在设置里面，自定义功能区，把开发工具加进来。）
1.右键点击按钮控件——选“查看代码”，输入以下代码，然后返回。
Private Sub CommandButton1_Click()
Label1.Caption = Int(Rnd * 20)
End Sub

2.右键点击标签控件——选“查看代码”，输入以下代码，然后返回。
Private Sub Label1_Click()
SlideShowWindows(1).View.GotoSlide Label1.Caption
SlideShowWindows(1).Activate
End Sub