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

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

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

（2）請在橫線處填入合適的代碼。
Constn=500'總學生數(shù)
Constm=10'總班級數(shù)Dimscore（1Ton）AsInteger
Dimstu_name（1Ton）AsIntegerDimclass（1Ton）AsIntegerDimtemp1（1Ton）AsIntegerDimtemp2（1Ton）AsIntegerDimtemp3（1Ton）AsIntegerFunctionadj（sAsString）
'本函數(shù)在字符串s前添加若干空格，實現(xiàn)右對齊，代碼略
EndFunction
PrivateSubForm_Load （　?。?br />'本過程讀取學生姓名、班級和成績數(shù)據(jù)分別存儲在數(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個班級的最后一個學生的存儲位置
c（m+1）=n
Fork=1Tom'對每一個班級學生成績進行排序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