公司年會，領(lǐng)導(dǎo)要小李編寫一個小程序，用于抽獎，小李將參加年會的人員姓名、手機(jī)號保存在一個access數(shù)據(jù)庫中庫名：年會嘉賓．a(chǎn)ccdb 數(shù)據(jù)表名為：聯(lián)系人
程序設(shè)計(jì)的主要思路是：窗體裝入時讀出所有嘉賓的姓名和手機(jī)號，保存在兩個數(shù)據(jù)中，從text1中取得要抽獎的人數(shù)，用隨機(jī)函數(shù)產(chǎn)生1～num間的數(shù)作為中獎號，從數(shù)據(jù)中讀出對應(yīng)的姓名和手機(jī)號，手機(jī)號中間4位用“新年快樂”代替．已抽中過的姓名和手機(jī)號從數(shù)據(jù)中刪除，以防止重復(fù)中獎．

Dim sname（1To 1000）As String‘用于保存嘉賓姓名
Dim phone（1To 1000）As String‘用于保存嘉賓手機(jī)號
Dim num As Integer‘未抽獎人數(shù)
Private Sub Command1_Click （　?。?br />Dim n As Integer‘?dāng)M抽獎人數(shù)
Randomize
n=Val（Text1．Text）
List1．Clear
If

n＜=num

n＜=num

（1）  Then
For i=1To n
k=Int（Rnd*num）+1
List1．AddItem Str（i）+““+sname（k）+““+

Mid（phone（k），1，3）+“新年快樂”+Mid（phone（k），8）或者Left（phone（k），3）+“新年快樂”+Right（phone（k），4）．

Mid（phone（k），1，3）+“新年快樂”+Mid（phone（k），8）或者Left（phone（k），3）+“新年快樂”+Right（phone（k），4）．

（2）
For j=k To num
sname（j）=sname（j+1）
phone（j）=phone（j+1）
Next j
num=

num-1

num-1

（3）
Next i
Else
List1．AddItem“剩余的數(shù)據(jù)不足！“
End If
End Sub
Rem 下列程序段用于從數(shù)據(jù)庫中讀取嘉賓的姓名和手機(jī)號，分別保存在全局變量sname （　?。┖蚿hone （　?。﹥蓚€數(shù)組中，設(shè)嘉賓個數(shù)不超過1000個．
Private Sub Form_Load （　?。?br />Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString=“provider=microsoft.ace.oledB．12.0；data source=“& App.Path &“\年會嘉賓．a(chǎn)ccdb“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from 聯(lián)系人“
num=0
Do While Not rs.EOF And num＜1000
num=num+1
phone（num）=rs.Fields（“聯(lián)系電話“）
sname（num）=rs.Fields（“姓名“）
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
End Sub.