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

Dim xm（1to 30000）as long'存儲銷售員工的姓名數據，最大處理個數為30000
Dim xse（1to 30000）as string'存儲銷售員工的銷售量數據，最大處理個數為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.jye.ai“'打開到數據庫的鏈接
conn.Open
strSQL=“select*from tab where'dq=“+Text1．Text+“'“
Set rs.ActiveConnection=conn'設置rs的ActiveConnection屬性，指定與其關聯的數據庫鏈接
rs.Open strSQL'打開記錄集，將從表student中讀取的結果集保存到記錄集rs中
List1．Clear
num=0
Do while not rs.EOF
xse（num）=rs.Fields（“銷售額“）：xm（num）=rs.jye.ai（“姓名“）
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)計數據的過程
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．additem str（mc（i）+““+xm（i）+““+str（xse（i））
Next i
ave=③
label1．caption=str（ave）
End Sub
（1）分析程序代碼，當前處理的數據庫文件名為

data.jye.ai

data.jye.ai

．
（3）程序中①橫線處應填入代碼

sum=sum+xse（i）

sum=sum+xse（i）

；程序中②橫線處應填入代碼

fori=j+1tonum

fori=j+1tonum

；程序中③橫線處應填入代碼

int（sum/num*100）/100

int（sum/num*100）/100

．