數(shù)組nam （　　）、sex （　?。?、math （　　）、su （　?。┓謩e存放學(xué)生的姓名、性別、數(shù)學(xué)和總分成績(jī)，現(xiàn)要求編寫(xiě)一個(gè)程序使得數(shù)據(jù)按照男生“總分”的降序和女生“總分”的升序排列，其中男生在前女生在后，程序界面如圖所示：

實(shí)現(xiàn)該功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Dim nam（100）As String'存放學(xué)生姓名
Dim sex（100）As String'存放學(xué)生性別
Dim math（100）As Long'存放學(xué)生數(shù)學(xué)成績(jī)
Dim su（100）As Long'存放學(xué)生總分成績(jī)
Dim k As Integer'k變量用來(lái)存學(xué)生人數(shù)
Private Sub Form_Load （　?。?br />‘將數(shù)據(jù)庫(kù)中的數(shù)據(jù)分別存儲(chǔ)在相應(yīng)的變量中并在列表框中顯示出來(lái)
‘代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim mmax As Integer,gmax As Integer,flagm As Boolean,flagg As Boolean
i=1：flagm=True：flagg=True
Do While ①
mmax=0：gmax=0
flagm=False：flagg=False
For j=i To k-i+1
If sex（j）=“男“And su（j）＞su（mmax） Then mmax=j
If sex（j）=“女“And su（j）＞su（gmax） Then gmax=j
Next j
If mmax＜＞0 Then
flagm=True
t=nam（mmax）：nam（mmax）=nam（i）：nam（i）=t
t=sex（mmax）：sex（mmax）=sex（i）：sex（i）=t
t=math（mmax）：math（mmax）=math（i）：math（i）=t
t=su（mmax）：su（mmax）=su（i）：su（i）=t
End If
If gmax＜＞0 Then
flagg=True
If Then②
gmax=mmax
t=nam（gmax）：nam（gmax）=nam（k-i+1）：nam（k-i+1）=t
t=sex（gmax）：sex（gmax）=sex（k-i+1）：sex（k-i+1）=t
t=math（gmax）：math（gmax）=math（i）：math（i）=t
t=su（gmax）：su（gmax）=su（k-i+1）：su（k-i+1）=t
Else
t=nam（gmax）：nam（gmax）=nam（k-i+1）：nam（k-i+1）=t
t=sex（gmax）：sex（gmax）=sex（k-i+1）：sex（k-i+1）=t
t=math（gmax）：math（gmax）=math（k-i+1）：math（k-i+1）=t
t=su（gmax）：su（gmax）=su（k-i+1）：su（k-i+1）=t
End If
End If
i=i+1
Loop
For i=1 To k
List2．AddItem nam（i）+““+sex（i）+““+Str（math（i））+““+Str（su（i））
Next i
End Sub
程序中①處改為

i＜=k-i+1And （flagm=True or flagg=True）

i＜=k-i+1And （flagm=True or flagg=True）

。
程序中②處改為

gmax=mmax

gmax=mmax

。