……
N = 0
cnt = Me!電科.Value + Me!電氣.Value + Me!自動化.Value + Me!通信.Value + Me!院辦.Value + Me!退休.Value
Do While Me!抽獎數量.Value > N And Not qrs.EOF And cnt < Me!總數量.Value
　'電科抽獎
　’四舍五入確定電科中獎數

　If Me!電科.Value < (Int(((unit1.姓名之Count / cnt1) * Me!總數量.Value + 0.5))) And N < Me!抽獎數量.Value And cnt < Me!總數量.Value Then
　　If qrs.單位 = "電科" And qrs!批次.Value = 0 Then
　　　Me!電科.Value = Me!電科.Value + 1
　　　qrs.Edit
　　　qrs!獎勵等級.Value = Me!獎勵等級.Value
　　　qrs!批次.Value = Me!批次.Value
　　　qrs.Update
　　　N = N + 1
　　End If
　Else
　End If
　……
　'退休抽獎
　cnt = Me!電科.Value + Me!電氣.Value + Me!自動化.Value + Me!通信.Value + Me!院辦.Value + Me!退休.Value
　cnt2= Me!電科.Value + Me!電氣.Value + Me!自動化.Value + Me!通信.Value + Me!院辦.Value
　'剩余數量分配給退休
　If Me!退休.Value < Int((Me!總數量.Value – cnt2) And N < Me!抽獎數量.Value And cnt < Me!總數量.Value Then
　　If qrs22.單位 = "退休" And qrs!批次.Value = 0 Then
　　　Me!退休.Value = Me!退休.Value + 1
　　　qrs.Edit
　　　qrs22!獎勵等級.Value = Me!獎勵等級.Value
　　　qrs22!批次.Value = Me!批次.Value
　　　qrs22.Update
　　　N = N + 1
　　End If
　Else
　End If
　……
　’判斷是否完成抽獎
　cnt = Me!電科.Value + Me!電氣.Value + Me!自動化.Value + Me!通信.Value + Me!院辦.Value + Me!退休.Value
　If cnt = Me!總數量.Value Then
　　MsgBox ("抽獎總數已到。")
　　Me.可抽獎.Value = 0
　Else
　　MsgBox ("抽獎限制。")
　End If
　……