编写一个统计公司地区销售数据库中每个销售员销售额的VB程序，实现如下功能：
（1）在文本框Text1中输入要统计的销售地区，单击“读取数据”按钮Command1，该过程从数据库读取该销售地区所有的销售员姓名和销售数据，分别存储在数组xm和xse中；
（2）在文本框Text2中输入需要统计销售排名的数组存储在变量pm中，单击“统计”按钮Command2，求出销售额排名前m位的销售人员并显示在List1中（销售额相同则排名也相同）；
（3）计算输出该地区平均销售额（保留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 （　　）
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 （　　）'统计数据的过程
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

．