某校學生會選舉需要從學校數據庫中隨機抽取若干名學生作為監(jiān)票人。該數據庫文件名為school。mdb,其中數據表student存儲有關學生學號（xuehao）、姓名（xingming）相關信息，括號內的內容為對應字段名。該程序編輯界面如圖所示，相關對象名可參考標識圖。
cqxhxm
xskcqxhxm
當主持人點擊按鈕“生成抽號”后，下方的標簽會顯示可抽取的學號姓名，一定時間后顯示被抽取作為監(jiān)票人的學號姓名。
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 （　?。?br />cqxhxm.Enabled=True
xskcqxhxm.Enabled=True
End Sub

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

kcq（i）=True

kcq（i）=True

Next i
End Sub

Private Sub xskcqxhxm_Timer'若數組kcq第x個元素處于可抽取狀態(tài)，則顯示數組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'決定抽取的學號姓名作為監(jiān)票人
xskcqxhxm.Enabled=False
For i=0To xxxss-1
If xhxmbq.Caption=xhxm（i） Then kcq（i）=False
Next i
cqxhxm.Enabled=False
End Sub。