標題: 搖獎器 [打印本頁]

---

作者: q1a2z5    時間: 2016-4-14 08:07     標題: 搖獎器

此檔案(搖獎器)是從網路下載來的，可否再加入一個定時器，搖獎後數秒就停止。
謝謝!

---

作者: 准提部林    時間: 2016-4-15 10:49

Sub 啟動()
Dim i%, j%
For i = 1 To 3
　　If uMode <> "Start" Then Exit Sub
　　For j = 1 To 50
　　　　[G5,G9,G11] = Mid(Rnd, 3, 6) & Mid(Rnd, 3, 6)
　　　　Sleep 10
　　Next j
　　DoEvents
Next i
Call 確定
End Sub

調整 i 值可微調時間，自行去決定∼∼
　
　

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)