1、PPT界面

2、相关代码：

Option Explicit
Dim i
Dim flag As Boolean
Dim changArray As Boolean
Dim temp As Integer
Dim newArr() As String

Private Sub sleep(ByRef n As Long)
   Dim x As Long
   x = Timer * 1000 + n
   Do While x >= Timer * 1000
       DoEvents
   Loop
End Sub

Private Sub CommandButton1_Click()
 Dim names As String
 Dim nameArray() As String

 names = TextBox1.Text
 nameArray = Split(names, " ")
       
 If changArray Then
   nameArray = newArr
   For i = temp To UBound(nameArray) - 1
       nameArray(i) = nameArray(i + 1)
   Next i
   ReDim Preserve nameArray(UBound(nameArray) - 1)
   newArr = nameArray
   changArray = False
 End If
 
 Dim lenNum
 lenNum = UBound(nameArray) - LBound(nameArray) + 1
 
 Randomize
 
 For i = 1 To 100000
   Dim showNum As Integer
   showNum = Int(Rnd * (lenNum))
   TextBox2.Text = nameArray(showNum)
   If flag Then
    flag = False
    newArr = nameArray
    temp = showNum
    Exit For
   End If
 
   sleep 50
  Next
End Sub

Private Sub CommandButton2_Click()
 flag = True
 changArray = True
End Sub