私有子命令1_Click（）
啟用動態效果
定時器1。已啟用=真
末端接頭
私有子命令2_Click（）
dim n（4）作為整數存儲提取的人員。
n’中每個x的賦值為以後的有效性驗證做準備。
x = 21
然後
將溫度設為整數
對於i = 0到3
loop 1:temp = Int（Rnd * 20）‘來提取隨機人員。
對於n’中的每個x，通過跳轉實現不重復的有效性驗證。
如果temp = x，則轉到循環1
然後
溫度
然後
定時器1。已啟用= 0
標簽1。Caption =“獲獎者名單“&；vbCrLf & amp；sName（n（0））& amp；vbCrLf & amp；sName（n（1））；vbCrLf & amp；sName（n（2））和ampvbCrLf & amp；sName（n（3））
末端接頭
私有子窗體_Load（）
基本控制屬性分配
命令1。Caption =“開始抽獎“
命令2。Caption =“停止抽獎“
標簽1。Caption =“準備抽獎“
標簽1。AutoSize = True
定時器1。已啟用= 0
定時器分配，產生動態效果。
定時器1。間隔= 100
向數組中添加20個名稱以方便測試。在這裏，您可以自己修改數組的內容。
對於i = 0到19
SName（I）=“張“&；我
然後
末端接頭
私有子定時器1_Timer（）
這裏用於顯示動態提取效果。
標簽1。caption = sName（Int（Rnd * 20））
末端接頭
附件已發送。