摘 要 介紹了抽獎信息管理系統的設計思路和基本原理，結合Access，通過軟件系統開發，實現了具有隨機性和相對均衡性的抽獎。

　　關鍵詞 抽獎系統 Access VBA 隨機 相對均衡性

　　引言

　　當今社會，各種各樣的抽獎活動相當普遍，抽獎活動的基本原則和主要特征是隨機性，但對于某一團體內部的抽獎活動來說，還有一個相對均衡的問題，所謂相對均衡就是指讓各個部門的中獎概率和其人數占總人數的比重大致相等?；贏ccess，結合其內置VBA語言，通過程序設計實現抽獎的隨機，通過算法研究實現抽獎的相對均衡。本文主要介紹了系統原理以及主要程序的設計。

　　系統組成及原理

　　抽獎系統主要由來賓登記、獎票管理、幸運抽獎、獲獎查詢四個基本模塊構成，登記模塊登記參加抽獎人員，獎票管理模塊初始化參加抽獎人員名單，抽獎模塊實現抽獎功能，獲獎查詢模塊查詢獲獎結果。其中，抽獎模塊中可以實現獎勵等級、總抽獎數、每一次抽獎數的控制。系統架構框圖如圖1。

　　圖1 系統架構

　　系統初始化

　　來賓登記模塊中已經收錄了參加抽獎的人員名單以及所屬部門，在獎票管理模塊中，當點擊初始化按鈕時通過內部程序設計首先把上次的抽獎結果清空，同時利用 Rnd在參加抽獎的人員名單前隨機生成一系列的序號，為幸運抽獎模塊中的隨機抽獎做準備[1]。主要初始化html' target='_blank'>程序代碼如下:

　　DoCmd.SetWarnings False

　　DoCmd.OpenQuery "刪除對獎票號", acNormal, acEdit

　　DoCmd.OpenQuery "追加對獎票號", acNormal, acEdit

　　DoCmd.SetWarnings True

　　Set qrs = CurrentDb.OpenRecordset("對獎票號")

　　qrs.MoveFirst

　　i = 1

　　Do While Not qrs.EOF

　　qrs.Edit

　　qrs!序號 = Int((211 - 1) * Rnd)

　　qrs!對獎號碼 = i

　　qrs.Update

　　i = i + 1

　　qrs.MoveNext

　　Loop

　　MsgBox ("對獎名單初始化完畢。")

　　qrs.Close

　　抽獎功能的實現

　　通過抽獎模塊實現最終抽獎功能。

　　通過獎勵等級組合框控制抽獎等級，通過抽獎數量組合框控制每批次抽獎數量，通過總抽獎數組合框控制總抽獎數。當獎勵等級分別為一、二、三等獎時，抽獎數量和總抽獎數默認值分別

　　為5、10、10和10、30、50。各組合框的具體數值也可以通過上下箭頭控制。抽獎界面如圖2。

　　圖 2 抽 獎 界 面

　　其程序設計比較簡單，主要程序如下:

　　……

　　If Me!獎勵等級.Value = 1 Then

　　Me!總數量.Value = 10

　　End If

　　If Me!獎勵等級.Value = 2 Then

　　Me!總數量.Value = 30

　　End If

　　If Me!獎勵等級.Value = 3 Then

　　Me!總數量.Value = 50

　　End If

　　Forms!抽獎.Q_抽獎統計.Requery

　　If Me!獎勵等級.Value = 1 Then

　　Me!抽獎數量.Value = 5

　　End If

　　If Me!獎勵等級.Value = 2 Or Me!獎勵等級.Value = 3 Then

　　Me!抽獎數量.Value = 10

　　End If

　　……

　　通過點擊開始按鈕開始抽獎，同時按鈕標題變為停止，再次點擊停止此批次抽獎，同時按鈕標題變為開始，繼續點擊開始下一批次抽獎，如此反復，直至完成總抽獎數，此時提示“抽獎總數已到”，如果未完成總抽獎數就開始另外一輪抽獎，則提示“抽獎限制”。

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。