PPT抽奖程序-名单抽取方案
5星
- 浏览量: 0
- 大小:None
- 文件类型：None
简介：
这款PPT抽奖程序提供高效便捷的名单抽取解决方案，适用于各类活动场合，确保抽奖过程公开透明、公平公正。
为了调整PPT的“工具--》宏--》安全性”设置为低级，请按照如下步骤操作：在代码中，输入名单到TextBox1，并确保使用单个空格分隔数据，避免首尾留有额外空白字符。以下是相关VBA代码示例：
```vba
Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)
Dim arrRM, F
用于点击按钮的事件处理函数
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 As Integer
开始处理任务时初始化相关变量和数组
If doTag = start Then
arrRM = Split(Me.TextBox1, , -1, 1) 使用空格分隔输入的字符串，也可以根据需要替换为其他字符如英文分号等。
TextBox3 =
TextBox3.Visible = True
TextBox4.Visible = True
Me.TextBox4 = UBound(arrRM) & & arrRM(0) & & arrRM(UBound(arrRM))
F = 0
End If
循环处理逻辑，直到满足特定条件终止循环。
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
Loop
End Sub
```
上述代码中，`CommandButton1_Click()`函数用于控制开始和停止操作。而核心的处理逻辑在`CQ_do(doTag)`函数内实现：当点击“开始”按钮时，它会从TextBox1获取数据，并使用空格作为分隔符来分割输入的数据；然后进入一个无限循环，在这个循环中每30毫秒随机选择数组中的元素并显示。如果需要停止操作，则可以调用该函数传入stop参数以结束当前的处理过程。
注意：在实际应用时，要确保TextBox1内没有前后多余的空格，并且各数据之间仅使用单个空格分隔。此外，根据具体需求可调整代码中的其他细节部分。
全部评论 (0)
