現(xiàn)需要對(duì)某企業(yè)大型招聘活動(dòng)面試成績(jī)進(jìn)行排名，面試數(shù)據(jù)包含專業(yè)編號(hào)（整數(shù)，順序編號(hào)）、專業(yè)名稱、姓名（字母編寫）和面試分。整理面試數(shù)據(jù)的要求是：先按專業(yè)編號(hào)從小到大排列，然后，同專業(yè)的面試者按面試成績(jī)從大到小排列（同分同名次）。按上述要求，編寫一個(gè)VB程序，功能如下：在列表Listi1中顯示整理前的數(shù)據(jù)，單擊“整理”按鈕Command1，整理結(jié)果顯示在列表框List2中，程序運(yùn)行界面如圖所示。

（1）n個(gè)元素兩兩比較大小確定其位次，需要比較的次數(shù)是

n（n-1）/2

n（n-1）/2

（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Const n=200'報(bào)名人數(shù)
Const nz=10'專業(yè)數(shù)
Dim zybh（1 To n）As Integer,zyname（1 Ton）As String,sname（1 To n）As String,
zymark（1 To n）As Integer
Dim b（1 To nz）As Integer'存儲(chǔ)每個(gè)專業(yè)的人數(shù)
Dim c（1 To nz）As Integer
Dim d（1 To n）As Integer
Dim q（1 To n）As Integer
Private Sub Form_Load

（　?。?/div>

（　　）

'本過(guò)程讀取專業(yè)編號(hào)、專業(yè)名稱、姓名和面試分的數(shù)據(jù)分別存儲(chǔ)在數(shù)組zybh,zyname,sname,zymark中，并在List1中顯示，代碼略
End Sub
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer
For i=1 To nz
b（i）=0
Next i
For i=1 To n
d（i）=0：q（i）=0
Next i
For i=1To n
k=zybh（i）
b（k）=b（k）+1
Next i
k=1
For i=1 To nz
c（i）=k
①

k=k+b（i）

k=k+b（i）

Next i
For i=1 To n-1
For j=i+1 To n
If zybh（i）=zybh（j）And zymark（i）＜＞zymark（j）Then
If②

zymark（i）＞zymark（j）

zymark（i）＞zymark（j）

Then
d（j）=d（j）+1
Else
d（i）=d（i）+1
End If
End If
Next j
Next i
For i=1 To n
j=0
Do While③

q（c（zybh（i）+d（i）+j））＜＞0

q（c（zybh（i）+d（i）+j））＜＞0

 
j=j+1
Loop
q（c（zybh（i））+d（i）+j）=i
Next i
For i=1 To n
List2.Addltem““& zybh（q（i）） &““& zyname（q（i）） &.““& sname（q（i）） &““& zymark（q（i）） &““& d（q（i）+1
Next i
End Sub