用VB设计查询并统计某公司的销售数据。实现如下功能:
①将所有员工的姓名和销售量存储到数组xm和xse中;
②对销售量数组进行求和,并输出该地区平均销售量(保留整数);
③根据输入“销售排名前几位”筛选出排名前几位销售人员的数据。
程序运行界面如图所示。

(1)下列程序对员工的销售额进行排序的主要算法属于
(选填:解析算法/枚举算法/冒泡排序算法/选择排序算法)
(2)实现上述功能的VB程序如下。请在划线处填入合适的代码。
Dim xse(1 To 3000) As Long '存储销售员工的销售量,最大处理个数为3000
Dim xm(1 To 3000) As String '存储销售员工的姓名
Dim mc(1 To 3000) As Integer '存储销售员工的名次
Dim num As Integer '当前员工总数
Private Sub Form_Load()
'将销售量、姓名数据存入xse和xm数组
'计算员工总数num
'代码略
End Sub
Private Sub Command1_Click()
Dim sum As Long
Dim i As Integer, flag As Integer
pm = Val(Text2.Text)
dq = Text1.Text
sum = 0
For i =" 1" To num
sum =" sum" + xse(i)
Next i
For i =" 1" To pm '对员工销售量进行排序
For j =
① To i + 1 Step -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 =" 2" To pm
If
② Then
mc(i) =" mc(i" - 1)
Else
mc(i) = i
End If
Next i
List1.Clear
List1.AddItem "排名" + "姓名" + "销售量"
For i =" 1" To pm
List1.AddItem Str(mc(i)) + " " + xm(i) + " " + Str(xse(i))
Next i
List1.AddItem dq + "平均销售额约为:" +
③ End Sub