某次技术考试后进行成绩处理，学生信息包括姓名、班级、成绩，要按班级从小到大，同一班级按成绩从高到低进行排序。按上述要求，编写一个VB程序，功能如下：在列表框List1中显示排序前的数据，单击“排序”按钮Command1，在列表框List2中显示排序后结果，程序运行界面如图所示。

（1）将数组元素temp1（1）到temp1（500）分为10段，每段刚好存储一个班的学生成绩，10个班
的学生数如下表所示。从数组temp1第1个元素开始依次存储这10个班的学生成绩，如1班学生成绩存储在temp1的第1个元素到第50个元素，则3班学生成绩存储在temp1的第个到第个元素（填数字）。

班级	1班	2班	3班	4班	5班	6班	7班	8班	9班	10班
人数	50	45	50	51	49	55	50	48	52	50

（2）请在横线处填入合适的代码。
Constn=500'总学生数
Constm=10'总班级数Dimscore（1Ton）AsInteger
Dimstu_name（1Ton）AsIntegerDimclass（1Ton）AsIntegerDimtemp1（1Ton）AsIntegerDimtemp2（1Ton）AsIntegerDimtemp3（1Ton）AsIntegerFunctionadj（sAsString）
'本函数在字符串s前添加若干空格，实现右对齐，代码略
EndFunction
PrivateSubForm_Load （　　）
'本过程读取学生姓名、班级和成绩数据分别存储在数组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