Question

PPT制作的不重复点名不能运行（VBA）

您好，我看了您http://zhidao.baidu.com/link?url=JY8qyRYo54a74sAA2ue35fu1a439LD0TePLCFlcy7BRDz0SETTNDUDp2Qo4GigX7-YFdJXtpxMMz5Zpr3W6AvK
的回复并按您说的制作了一个PPT，可一直运行不了。我把VBA代码复制在下面，请您给看一下什么地方出问题了。有劳您了，刚刚开始接触VBA，什么都不明白，还请您多多指点。

Dim times, j As Integer
Dim num(1 To 40) As Integer

Private Sub CommandButton1_Click()
start: Randomize
a = Int(Rnd * 40 + 1)
For i = 1 To 40
If a = num(i) Or a = 13 Then
GoTo start
End If
Next
Text1.Text = a
j = j + 1
num(j) = a
If j = 39 Then MsgBox "所有人员均已点过！"
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End If
End Sub

Private Sub CommandButton2_Click()
j = 0
For i = 1 To 40
num(i) = 0
Next
Command2.Enabled = False
Command1.Enabled = True
Text1.Text = ""
End Sub

下面是PPT界面：

Answer 1

代码放在 Slide1下 可拦郑运行

不要简伍颂放在橘没模块中

追问

我看了下，代码在SLIDE1下，没在模块中。

下面是图

追答

在视图-->工具栏--visual basic点开，-->控件工具箱点开

录制宏

将其中的控件中文本框和命令按键在页面上建立，修改名称