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

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

n（n-1）/2

n（n-1）/2

（2）請在橫線處填入合適的代碼。
Const n=200'報名人數(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'存儲每個專業(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>

（　　）

'本過程讀取專業(yè)編號、專業(yè)名稱、姓名和面試分的數(shù)據(jù)分別存儲在數(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