【正文】
= N + 1 End If Else End If ?? 39。剩余數(shù)量分配給退休 If Me!退休 .Value Int((Me!總數(shù)量 .Value – t2) And N Me!抽獎(jiǎng)數(shù)量 .Value And t Me!總數(shù)量 .Value Then If = 退休 And qrs!批次 .Value = 0 Then Me!退休 .Value = Me!退休 .Value + 1 qrs22!獎(jiǎng)勵(lì)等級(jí) .Value = Me!獎(jiǎng)勵(lì)等級(jí) .Value qrs22!批次 .Value = Me!批次 .Value N = N + 1 End If Else End If ?? ’判斷是否完成抽獎(jiǎng) t = Me!電科 .Value + Me!電氣 .Value + Me!自動(dòng)化 .Value + Me!通信 .Value + Me!院辦 .Value + Me!退休 .Value If t = Me!總數(shù)量 .Value Then MsgBox (抽獎(jiǎng)總數(shù)已到。 ) End If ?? 結(jié)論 本系統(tǒng)利用 Access數(shù)據(jù)庫(kù),結(jié)合其內(nèi)置 VBA 語(yǔ)言,探討了系統(tǒng)初始化、抽獎(jiǎng)的隨機(jī)性和相對(duì)均衡性等關(guān)鍵問題,滿足了抽獎(jiǎng)的要求。 青島男科醫(yī)院