對(duì)學(xué)生數(shù)據(jù)排序，排序后男生在前，女生在后，（“M”表示男，“F”表示女），男生和女生分別按“姓名”升序排序。編寫(xiě)一個(gè) VB 程序，功能如下：在列表框 list1 中顯示排序前學(xué)生數(shù)據(jù)，單擊“排序”按鈕 Command1，在列表框 list2 中顯示排序后的結(jié)果。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Const n=10
Dim xm（1 To n）As String,xb（1 To n）As String
Function adj（sAs String,n As Integer） As String
'函數(shù)功能：在字符串 s 后添加若干個(gè)空格，使其長(zhǎng)度變?yōu)?nbsp;n,代碼略。
End Function
Private Sub Form1_Load （　　）
'讀取 10 個(gè)學(xué)生姓名和性別分別存數(shù)組 xm、xb,
并在列表框 list1 中顯示，代碼略。
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,jAs Integer
i=1
Do While i＜=n-1
'（1）
Do While j＞=i+1
If xb（j）=“M“And xb（j-1）=“F“Or Then'（2）
temp=xm（j）：xm（j）=xm（j-1）：xm（j-1）=temp
temp=xb（j）：xb（j）=xb（j-1）：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