對(duì)學(xué)生數(shù)據(jù)排序，排序后男生在前，女生在后，（“M”表示男，“F”表示女），
男生和女生分別按“姓名”升序排序。編寫(xiě)一個(gè)VB 程序，功能如下：在列表框list1 中
顯示排序前學(xué)生數(shù)據(jù)，單擊“排序”按鈕Command1，在列表框list2 中顯示排序后的結(jié)
果。程序運(yùn)行界面如圖所示。實(shí)現(xiàn)上述功能的VB 程序如下，請(qǐng)?jiān)跈M線處補(bǔ)全代碼。
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
'函數(shù)功能：在字符串s 后添加若干個(gè)空格，使其長(zhǎng)度變?yōu)閚,代碼略。
End Function
Private Sub Form_Load （　　）
'讀取10 個(gè)學(xué)生姓名和性別分別存數(shù)組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
④上述的排序過(guò)程是

A

A

（填字母：A冒泡排序，B選擇排序）的變形。