现要编写一个程序，对每个班级的同学生成考试座位号，规则如下：先按成绩从高到低排序，如果成绩相同，学号在前的学生座位号在前，最后输出每个同学的座 位号。小王和小李采用不同的方法实现了上述算法。 请仔细比较两位同学的代码的不同之处，并完成相关代码的填空。
Dim  xm（1  To n）  As  String,xh（1  To n）  As  String
Dim  cj（1  to  n）As  Integer
Private  Sub  form_load （　　）
‘读取相关数据表，把姓名、学号、成绩分别存储到数组 xm、xh、cj 中，并在 List1 中显示，代码略 End  Sub
Private  Sub  Com1_Click （　　）′小王编写的代码部分
Dim  wz（1  To  n）  As  Integer
For  i=1 To  n-1 wz（i）=i
For  j=n To  i+1 Step-1
If （1）Then
t=cj（j）：cj（j）=cj（j-1）：cj（j-1）=t t=xh（j）：xh（j）=xh（j-1）：xh（j-1）=t
End  If
Next  j
Next  i
（2）  For  i=1 To  n-1
For  j=n To  i+1 Step-1
If（3）Then
t=cj（j）：cj（j）=cj（j-1）：cj（j-1）=t t=xh（j）：xh（j）=xh（j-1）：xh（j-1）=t t=wz（j）：wz（j）=wz（j-1）：wz（j-1）=t
End  If
Next  j
Next  i
List2．Clear
List2．AddItem″学号  姓名  成绩  座位号″For  i=1 To  n
List2．AddItem  xh（i）+″″+xm（i）+″″+Str（cj（i））+““+Str（wz（i））
Next  i
End  Sub
Private  Sub  Com2_Click （　　）′小李编写的代码部分
Dim  wz（1  To  n）  As  Integer,t（1  To  n）  As  Integer
For  i=1 To  n t（i）=i
Next  i
For  i=1 To  n
For  j=n To  i+1 Step-1
If（4）Then
temp=t（j）：t（j）=t（j-1）：t（j-1）=temp
End  If
Next  j（5）Next  i
List2．Clear
List2．AddItem″学号  姓名  成绩  座位号″For  i=1 To  n
List2．AddItem  xh（i）+″″+xm（i）+″″+Str（cj（i））+″″+Str（wz（i））
 Next  i
End  Sub