編寫一個統(tǒng)計公司地區(qū)銷售數(shù)據(jù)庫中每個銷售員銷售額的VB程序，實現(xiàn)如下功能：
（1）在文本框Text1中輸入要統(tǒng)計的銷售地區(qū)，單擊“讀取數(shù)據(jù)”按鈕Command1，該過程從數(shù)據(jù)庫讀取該銷售地區(qū)所有的銷售員姓名和銷售數(shù)據(jù)，分別存儲在數(shù)組xm和xse中；
（2）在文本框Text2中輸入需要統(tǒng)計銷售排名的數(shù)組存儲在變量pm中，單擊“統(tǒng)計”按鈕Command2，求出銷售額排名前m位的銷售人員并顯示在List1中（銷售額相同則排名也相同）；
（3）計算輸出該地區(qū)平均銷售額（保留2位小數(shù)，不要求四舍五入），程序運行界面如圖所示：

Dim xm（1to 30000）as long'存儲銷售員工的姓名數(shù)據(jù)，最大處理個數(shù)為30000
Dim xse（1to 30000）as string'存儲銷售員工的銷售量數(shù)據(jù)，最大處理個數(shù)為30000
Dim mc（1to 30000）as integer'存儲銷售員工的排名
Dim num as integer
Dim pm as integer,sum as single
Private Sub command1_click （　?。?br />Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\data.accdb“'打開到數(shù)據(jù)庫的鏈接
conn.Open
strSQL=“select*from tab where'dq=“+Text1．Text+“'“
Set rs.ActiveConnection=conn'設(shè)置rs的ActiveConnection屬性，指定與其關(guān)聯(lián)的數(shù)據(jù)庫鏈接
rs.Open strSQL'打開記錄集，將從表student中讀取的結(jié)果集保存到記錄集rs中
List1．Clear
num=0
Do while not rs.EOF
xse（num）=rs.Fields（“銷售額“）：xm（num）=rs.fields（“姓名“）
num=num+1
rs.MoveNext
loop
For i=1to num
mc（i）=0：xse（i）=xse（i）/10000
①
next i
rs.Close
conn.close
End Sub
Private Sub command1_click （　?。?統(tǒng)計數(shù)據(jù)的過程
Dim max as single,ave as single
Dim i as integer,flag as integer
pm=val（text1．text）
dq=text1．text
For j=1to pm
max=xse（j）
flag=j
②
If xse（i）＞max then max=xse（i）：flag=i
Next i
If flag＜＞j then
t=xse（j）：xse（j）=xse（flag）：xse（flag）=t
st=xm（j）：xm（j）=xm（flag）：xm（flag）=st
Endif
Next j
mc（1）=1
For i=2to pm
if xse（i）=xse（i-1）then mc（i）=mc（i-1）else mc（i）=i
Next i
List1．clear
For i=1to pm
List1．a(chǎn)dditem str（mc（i）+““+xm（i）+““+str（xse（i））
Next i
ave=③
label1．caption=str（ave）
End Sub
（1）分析程序代碼，當(dāng)前處理的數(shù)據(jù)庫文件名為

data.accdb

data.accdb

．
（3）程序中①橫線處應(yīng)填入代碼

sum=sum+xse（i）

sum=sum+xse（i）

；程序中②橫線處應(yīng)填入代碼

fori=j+1tonum

fori=j+1tonum

；程序中③橫線處應(yīng)填入代碼

int（sum/num*100）/100

int（sum/num*100）/100

．