用VB設(shè)計(jì)查詢并統(tǒng)計(jì)某公司的銷(xiāo)售數(shù)據(jù)．實(shí)現(xiàn)如下功能：
①將所有員工的姓名和銷(xiāo)售量存儲(chǔ)到數(shù)組xm和xse中；
②對(duì)銷(xiāo)售量數(shù)組進(jìn)行求和，并輸出該地區(qū)平均銷(xiāo)售量（保留整數(shù)）；
③根據(jù)輸入“銷(xiāo)售排名前幾位”篩選出排名前幾位銷(xiāo)售人員的數(shù)據(jù)．
程序運(yùn)行界面如圖所示．
（1）下列程序?qū)T工的銷(xiāo)售額進(jìn)行排序的主要算法屬于

冒泡

冒泡

（選填：解析算法/枚舉算法/冒泡排序算法/選擇排序算法）
（2）實(shí)現(xiàn)上述功能的VB程序如下．請(qǐng)?jiān)跈M線處填入合適的代碼．
Dim xse（1To 3000）As Long'存儲(chǔ)銷(xiāo)售員工的銷(xiāo)售量，最大處理個(gè)數(shù)為3000
Dim xm（1To 3000）As String'存儲(chǔ)銷(xiāo)售員工的姓名
Dim mc（1To 3000）As Integer'存儲(chǔ)銷(xiāo)售員工的名次
Dim num As Integer'當(dāng)前員工總數(shù)
Private Sub Form_Load（　　）'將銷(xiāo)售量、姓名數(shù)據(jù)存入xse和xm數(shù)組
'計(jì)算員工總數(shù)num
'代碼略
End Sub
Private Sub Command1_Click（　?。〥im sum As Long
Dim i As Integer,flag As Integer
pm=Val（Text2．Text）
dq=Text1．Text
sum=0
For i=1To num
sum=sum+xse（i）
Next i
For i=1To pm'對(duì)員工銷(xiāo)售量進(jìn)行排序
For j=①

num

num

 To  i+1Step-1
If xse（j-1）＜xse（j） Then
t=xse（j-1）：xse（j-1）=xse（j）：xse（j）=t
st=xm（j-1）：xm（j-1）=xm（j）：xm（j）=st
End If
Next j
Next i
mc（1）=1
For i=2To pm
If ②

xse（i）=xse（i-1）

xse（i）=xse（i-1）

 Then
mc（i）=mc（i-1）
Else
mc（i）=i
End If
Next i
List1．Clear
List1．AddItem“排名“+“姓名“+“銷(xiāo)售量“
For i=1To pm
List1．AddItem Str（mc（i））+““+xm（i）+““+Str（xse（i））
Next i
List1．AddItem dq+“平均銷(xiāo)售額約為：“+③

Str（sum\num）

Str（sum\num）

End Sub.