某校學生會選舉需要從學校數據庫中隨機抽取若干名學生作為監票人。該數據庫文件名為school。mdb,其中數據表student存儲有關學生學號（xuehao）、姓名（xingming）相關信息，括號內的內容為對應字段名。該程序編輯界面如圖所示，相關對象名可參考標識圖。
cqxhxm
xskcqxhxm
當主持人點擊按鈕“生成抽號”后，下方的標簽會顯示可抽取的學號姓名，一定時間后顯示被抽取作為監票人的學號姓名。
cz
cq
'xxxss：學校學生數，kcq：可抽取
'xhxm：學號姓名，kcq：可抽取
Dim xxxss As Integer
xhxmbq
Dim xhxm（3000）As String
Dim kcq（3000）As Boolean

'cq_Click：啟用兩個定時器
Private Sub cq_Click （　　）
cqxhxm.Enabled=True
xskcqxhxm.Enabled=True
End Sub

Private Sub cz_Click'初始化數組kcq,使每個元素數據都處于可顯示狀態
For i=0To xxxss-1
①

kcq（i）=True

kcq（i）=True

Next i
End Sub

Private Sub xskcqxhxm_Timer'若數組kcq第x個元素處于可抽取狀態，則顯示數組xhxm第x個元素
x=Int（Rnd*xxxss）
If kcq（x） Then xhxmbq.jye.ai=kcq（x）'②

xhxmbq.Caption=xhxm（x）

xhxmbq.Caption=xhxm（x）

End Sub

Private Sub Form_Load （　　）'從數據庫中提取需要的學號姓名相關數據并初始化數組kcq
Randomize
xxxss=0
Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim str_conn as String,str_sql As String
str_conn=“driver=Microsoft access driver（*．mdb）；DBQ=“&app.jye.ai&“\school.jye.ai“；
conn.jye.ai str_conn
str_sql=“select*from students“
rs.jye.ai str_sql
Do While Not rs.eof
xxxss=xxxss+1
xhxm（xxxss）=rs.jye.ai（“xuehao“）&rs.jye.ai（“xingming“）
rs.movenext
Loop
For i=0To xxxss-1
kcq（i）=True
Next i
End Sub

Private Sub cqxhxm_Timer'決定抽取的學號姓名作為監票人
xskcqxhxm.Enabled=False
For i=0To xxxss-1
If xhxmbq.Caption=xhxm（i） Then kcq（i）=False
Next i
cqxhxm.Enabled=False
End Sub。