有高人指导不吗？？？ 急！！！！！！！！！！

id00123

1. Dim arr(2), k, r
   
2. Private Sub Command1_Click()
   
3.     If Command1.Caption = "停止" Then Command1.Caption = "抽出" Else Command1.Caption = "停止"
   
4.    
   
5.     If arr(0) = 0 Then
   
6.         For i = 0 To 2
   
7.             arr(i) = i + 1
   
8.         Next
   
9.         MsgBox "3个初始化完成"
   
10.     End If
    
11.    
    
12.     Randomize
    
13.     While Command1.Caption = "停止"
    
14.         r = Int(Rnd * (3 - k)) + k
    
15.         If Rnd > 0.5 Then
    
16.             TextBox1.Text = "000"
    
17.         Else
    
18.             TextBox1.Text = Right("00" & arr(r), 3)
    
19.         End If
    
20.         DoEvents
    
21.     Wend
    
22.    
    
23.     If Command1.Caption = "抽出" Then
    
24.         t = arr(r): arr(r) = arr(k): arr(k) = t: k = k + 1
    
25.         TextBox1.Text = Right("00" & t, 3)
    
26.     End If
    
27.    
    
28.     If k > 2 Then
    
29.         If Command1.Caption <> "抽出" Then k = 0
    
30.         Command1.Caption = Join(arr, "-") & vbLf & "3个已全部抽出" & vbLf & "下一轮"
    
31.     Else
    
32.         Command1.Caption = Left(Join(arr, "-"), k * 2) & vbLf & "已抽出第 " & k & " 个" & vbLf & "下一个"
    
33.     End If
    
34.    
    
35. End Sub
    
36. Sub OnSlideShowPageChange()
    
37.     Command1.Caption = "开始"
    
38.     打开.Caption = "打开"
    
39.     TextBox1.Text = "000"
    
40. End Sub
    
41. 
    
42. Private Sub 打开_Click()
    
43. ActivePresentation.SlideShowWindow.View.GotoSlide (“        ”)
    
44. End Sub
    

复制代码

打开对应抽取到数字的页面，这里ActivePresentation.SlideShowWindow.View.GotoSlide (“ ”)怎么写啊。求指导啊，谢谢了，急~！