16.對學生數據排序,排序后男生在前,女生在后,(“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 ④上述的排序過程是