某省舉辦大型活動(dòng)，面向省內(nèi)城市招募有志愿者服務(wù)工作經(jīng)歷的志愿者，每個(gè)志愿者的報(bào)名數(shù)據(jù)包含城市序號(hào)、姓名（字母縮寫(xiě)）和參加志愿者服務(wù)的次數(shù)?，F(xiàn)需要整理報(bào)名數(shù)據(jù)，要求是：先按城市序號(hào)從小到大排列；然后，同一城市的志愿者按參加志愿服務(wù)的次數(shù)從多到少排列。
按上述要求，編寫(xiě)一個(gè)VB程序，功能如下：在列表框List1中顯示整理前的數(shù)據(jù)，單擊“整理”按鈕Command1，整理結(jié)果顯示在列表框List2中，程序運(yùn)行界面如圖所示。

（1）將數(shù)組元素q（1）到q（200）分為10段，如果每段恰好包含20個(gè)元素，采用選擇排序算法分別對(duì)每段中的元素進(jìn)行排序，整個(gè)排序過(guò)程中，數(shù)組元素之間的比較次數(shù)是

B

B

（單選，填字母：A.200×199/2次/B.10×20×19/2次/C.20×10×9/2次）。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Const n=200'報(bào)名總?cè)藬?shù)
Const nc=10'城市數(shù)
Dim city（1 To n）As Integer,pname（1 To n）As String,times（1 To n）As Integer
Dim b（1 To nc）As Integer'存儲(chǔ)每個(gè)城市的報(bào)名人數(shù)
Dim c（1 To nc）As Integer
Dim q（1 To n）as Integer
Private Sub Form_Load（　?。?br />'本過(guò)程讀取城市序號(hào)、姓名和參加次數(shù)的數(shù)據(jù)分別存儲(chǔ)在數(shù)組city、pname和times中，
'并在List1中顯示，代碼略
End Sub
Private Sub Command1_Click（　?。?br />      Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer
For i=1 To nc
      b（i）=0
Next i
For i=1 Ton

①

①

      b（k）=b（k）+1
Next i
k=1
For i=1 To nc
       c（i）=k
       k=k+b（i）
Next i
For i=1 To n
       k=city（i）

②

②

       c（k）=c（k）+1
Next i
pos=1
For i=1 To nc'對(duì)各城市報(bào)名數(shù)據(jù)按參加志愿服務(wù)的次數(shù)進(jìn)行排序
       For j=pos To pos+b（i）-2
              k=fp（j,pos+b（i）-1）
              t=q（k）：q（k）=q（j）：q（j）=t
       Next j
       pos=pos+b（i）
Next i
For i=1 To n
       List2．AddItem““&city（q（i））&““&pname（q（i））&““&times（q（i））
Next i
End Sub
Function fp（head As Integer,tail As Integer）As Integer
       Dim i As Integer,k As Integer
       k=head
       For i=

③

③

             If times（q（i））＞times（q（k））Then k=i
             Next i
             fp=k
End Function