【vba代码】如何用PPT实现滚动抽奖

Public a, b As Integer

''' 本段是设置滚动效果

Private Sub CommandButton1_Click()

b = 0

Do While True

a = 1 + Int(Rnd() * 900)

TextBox1.Text = a

Dim Savetime As Single

Savetime = Timer

While Timer < Savetime + 0.005

DoEvents

Wend

If b = 1 Then

Exit Do

End If

Loop

End Sub

''' 本段是进行不重复抽奖

Private Sub CommandButton2_Click()

b = 1

Dim MyArray(290) As Integer

Randomize '初始化随机函数

'对数组进行循环相加，s为相加的和

s = 0

For i = 1 To 290 '这里填入预备抽奖的号码，如果是抽500，这里可改为 For i = 1 To 500

s = s + MyArray(i - 1)

Next

If s < 84100 Then '所有的号都抽过了，则不进行下面的循环，防止死循环发生。这里填入预备抽奖的号码的平方，如果是抽500，这里可改为 If s < 250000 Then

Do

n = Int((290 - 1 + 1) * Rnd + 1) '如果是抽500，这里可改为 n = Int((501 - 1 + 1) * Rnd + 1)

Loop While MyArray(n - 1) = 291 '表示此次抽出的数值以前抽过，重新抽取 。如果是抽500，这里可改为 Loop While MyArray(n - 1) = 501

MyArray(n - 1) = 291 '如果是抽500，这里可改为 MyArray(n - 1) = 501

If n < 10 Then

TextBox1.Text = "00" & n

ElseIf n >= 10 And n < 100 Then

TextBox1.Text = "0" & n

Else

TextBox1.Text = n

End If

End If

End Sub

本文来源：https://www.wddqw.com/doc/4744e9ab1cd9ad51f01dc281e53a580217fc506e.html