小王通过抽样调查的方式，获得了96人的信用分值（整数，大于349且小于950）。要求对其各个分段进行统计，并输出分布最广的3个分段及其个数和百分比，但不包含650-699这一段（此段为系统默认，属于第7段）。分段说明：350～399分为第1段，400～449为第2段，450～499为第3段，以此类推，共分为12段。
实现上述功能的ⅤB程序代码如下，但加框处代码有错，请改正。
Const n=96
Dim d（I To n）As Integer
Private Sub Command1_ Click（　　）
Dim fd（1 To 12）As Integer'存储每个分段内人数
Dim a（1 To 12）As Integer'存储每个分段内人数的副本
Dim b（1 To 12）As Integer'存储每个分段编号的副本
Dim i As Integer,j As Integer,t As Integer,k As Integer
Dim p As Single,templ As Integer,temp2 As Integer
Fori=1 To n
'①
fd（i）=fd（t）+1
Next i
Fo  i=I To 12
a（i）=fd（i）：b（i）=i
Next j
For i=1 To 3'排序时第7段数据不参与排序
k=i
For j=i+I To 12
IfThen k=j'②
Next j
Ifk◇i Then
templ=a（i）：a（i）=a（k）：a（k）=templ
emp2=b（i）：b（i）=b（k）：b（k）=temp。
End If
Next i
For i=1 To 3
p=Int（a（i）/n*1000+0.5）/10'百分比，保留一位小数
List.AddItem“分数段”+Str（b（i））+“个数”+Str（a（i））+“百分比”+Str（p）+“%”
Next i
End Sub
Private Sub Form _Load（　　）
'获取n个人的“信用分”，并存储在数组d中
'代码略
End sub