引言
當今社會,各種各樣的抽獎活動相當普遍,抽獎活動的基本原則和主要特征是隨機性,但對于某一團體內(nèi)部的抽獎活動來說,還有一個相對均衡的問題,所謂相對均衡就是指讓各個部門的中獎概率和其人數(shù)占總?cè)藬?shù)的比重大致相等。基于access,結(jié)合其內(nèi)置vba語言,通過程序設計實現(xiàn)抽獎的隨機,通過算法研究實現(xiàn)抽獎的相對均衡。本文主要介紹了系統(tǒng)原理以及主要程序的設計。
系統(tǒng)組成及原理
抽獎系統(tǒng)主要由來賓登記、獎票管理、幸運抽獎、獲獎查詢四個基本模塊構(gòu)成,登記模塊登記參加抽獎人員,獎票管理模塊初始化參加抽獎人員名單,抽獎模塊實現(xiàn)抽獎功能,獲獎查詢模塊查詢獲獎結(jié)果。其中,抽獎模塊中可以實現(xiàn)獎勵等級、總抽獎數(shù)、每一次抽獎數(shù)的控制。系統(tǒng)架構(gòu)框圖如圖1。
| 以下為引用的內(nèi)容: 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 |
通過抽獎模塊實現(xiàn)最終抽獎功能。
通過獎勵等級組合框控制抽獎等級,通過抽獎數(shù)量組合框控制每批次抽獎數(shù)量,通過總抽獎數(shù)組合框控制總抽獎數(shù)。當獎勵等級分別為一、二、三等獎時,抽獎數(shù)量和總抽獎數(shù)默認值分別為5、10、10和10、30、50。各組合框的具體數(shù)值也可以通過上下箭頭控制。抽獎界面如圖2。
新聞熱點
疑難解答
圖片精選