ppt随机中奖或点名程序

Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Dim arrRM, F

Private Sub CommandButton1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

'输入名单到: TextBox1 采用单个空格分隔，最前和最后一个数据后不要留空格（否则可能部分元素抽出为空）
'代码注释部分用于调试，或者你可以修改为其他用途，比如可以显示给用户观看。
Private Sub CommandButton1_Click()
If Me.CommandButton1.Caption = “停” Then
Me.CommandButton1.Caption = “开始”
Call CQ_do(“stop”)
Else
Me.CommandButton1.Caption = “停”
Call CQ_do(“start”)
End If
End Sub

Private Sub CQ_do(doTag)
Dim I
If doTag = “start” Then
arrRM = Split(Me.TextBox1, " ", -1, 1) '如果有需要你可以替换这里的空格，改为你需要的分隔符： 如个为英文分号 Split(Me.TextBox1, “;”, -1, 1)
’ TextBox3 = “”
’ TextBox3.Visible = True
’ TextBox4.Visible = True
’ Me.TextBox4 = UBound(arrRM) & " " & arrRM(0) & " " & arrRM(UBound(arrRM))
F = 0
Do While True
Sleep 30
I = Int(((UBound(arrRM) + 1) * Rnd) + 0)
’ TextBox3 = TextBox3 & “-” & I
TextBox2.Text = arrRM(I)
If F = 1 Then Exit Do
DoEvents
Loop
Else
F = 1
End If
End Sub

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub