对学生数据排序，排序后男生在前，女生在后，（“M”表示男，“F”表示女），
男生和女生分别按“姓名”升序排序。编写一个VB 程序，功能如下：在列表框list1 中
显示排序前学生数据，单击“排序”按钮Command1，在列表框list2 中显示排序后的结
果。程序运行界面如图所示。实现上述功能的VB 程序如下，请在横线处补全代码。
Const n=10
Dim xm（1 To n） As String,xb（1 To n） As String
Function adj（s As String,n As Integer） As String
'函数功能：在字符串s 后添加若干个空格，使其长度变为n,代码略。
End Function
Private Sub Form_Load （　　）
'读取10 个学生姓名和性别分别存数组xm、xb,并在列表框list1 中显示，代码略。
End Sub
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer
i=1
Do While i＜=n-1

①

①

Do While j＞=i+1
If xb（j）=“M“And xb（j-1）=″F″Or

②

②

 Then
temp=xm（j）：xm（j）=xm（j-1）：xm（j-1）=temp
temp=xb（j）：

③

③

：xb（j-1）=temp
End If
j=j-1
Loop
i=i+1
Loop
For i=1 To n
List2．AddItem adj（xm（i），12）+″″+xb（i）
Next i
End Sub
④上述的排序过程是

A

A

（填字母：A冒泡排序，B选择排序）的变形。