某次技術(shù)考試后進(jìn)行成績處理，學(xué)生信息包括姓名、班級(jí)、成績，要按班級(jí)從小到大，同一班級(jí)按成績從高到低進(jìn)行排序。按上述要求，編寫一個(gè)VB程序，功能如下：在列表框List1中顯示排序前的數(shù)據(jù)，單擊“排序”按鈕Command1，在列表框List2中顯示排序后結(jié)果，程序運(yùn)行界面如圖所示。

（1）將數(shù)組元素temp1（1）到temp1（500）分為10段，每段剛好存儲(chǔ)一個(gè)班的學(xué)生成績，10個(gè)班
的學(xué)生數(shù)如下表所示。從數(shù)組temp1第1個(gè)元素開始依次存儲(chǔ)這10個(gè)班的學(xué)生成績，如1班學(xué)生成績存儲(chǔ)在temp1的第1個(gè)元素到第50個(gè)元素，則3班學(xué)生成績存儲(chǔ)在temp1的第個(gè)到第個(gè)元素（填數(shù)字）。

班級(jí)	1班	2班	3班	4班	5班	6班	7班	8班	9班	10班
人數(shù)	50	45	50	51	49	55	50	48	52	50

（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Constn=500'總學(xué)生數(shù)
Constm=10'總班級(jí)數(shù)Dimscore（1Ton）AsInteger
Dimstu_name（1Ton）AsIntegerDimclass（1Ton）AsIntegerDimtemp1（1Ton）AsIntegerDimtemp2（1Ton）AsIntegerDimtemp3（1Ton）AsIntegerFunctionadj（sAsString）
'本函數(shù)在字符串s前添加若干空格，實(shí)現(xiàn)右對(duì)齊，代碼略
EndFunction
PrivateSubForm_Load （　?。?br />'本過程讀取學(xué)生姓名、班級(jí)和成績數(shù)據(jù)分別存儲(chǔ)在數(shù)組stu_name,class和score中，'并在List1中顯示，代碼略
EndSub
PrivateSubCommand1_Click （　　）
DimiAsInteger,jAsInteger,kAsInteger,t1AsInteger,t2AsStringDimc（0Tom+1）AsInteger
Fori=0Tomc（i）=0
Nexti
Fori=1Ton
①
c（k）=c（k）+1
Nexti
Fori=1Tom
c（i）=c（i）+c（i-1）Nexti
Fori=nTo1Step-1k=class（i）
temp1（c（k））=score（i）temp2（c（k））=stu_name（i）temp3（c（k））=class（i）
②
Nexti'處理完畢c（i+1）表示第i個(gè)班級(jí)的最后一個(gè)學(xué)生的存儲(chǔ)位置
c（m+1）=n
Fork=1Tom'對(duì)每一個(gè)班級(jí)學(xué)生成績進(jìn)行排序Fori=c（k）+1Toc（k+1）-1
Forj=c（k+1）Toi+1Step-1If③Then
t1=temp1（j）：temp1（j）=temp1（j-1）：temp1（j-1）=t1t2=temp2（j）：temp2（j）=temp2（j-1）：temp2（j-1）=t2t1=temp3（j）：temp3（j）=temp3（j-1）：temp3（j-1）=t1
EndIfNextj
NextiNextk
Fori=1Ton
score（i）=temp1（i）：stu_name（i）=temp2（i）：class（i）=temp3（i）List2．AddItemadj（Str（stu_name（i）））&adj（Str（class（i）））&adj（Str（score（i）））
Nexti
EndSub