小王通過抽樣調(diào)查的方式，獲得了96人的信用分值（整數(shù)，大于349且小于950）。要求對其各個(gè)分段進(jìn)行統(tǒng)計(jì)，并輸出分布最廣的3個(gè)分段及其個(gè)數(shù)和百分比，但不包含650-699這一段（此段為系統(tǒng)默認(rèn)，屬于第7段）。分段說明：350～399分為第1段，400～449為第2段，450～499為第3段，以此類推，共分為12段。
實(shí)現(xiàn)上述功能的ⅤB程序代碼如下，但加框處代碼有錯(cuò)，請改正。
Const n=96
Dim d（I To n）As Integer
Private Sub Command1_ Click（　?。?br />Dim fd（1 To 12）As Integer'存儲(chǔ)每個(gè)分段內(nèi)人數(shù)
Dim a（1 To 12）As Integer'存儲(chǔ)每個(gè)分段內(nèi)人數(shù)的副本
Dim b（1 To 12）As Integer'存儲(chǔ)每個(gè)分段編號(hào)的副本
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'排序時(shí)第7段數(shù)據(jù)不參與排序
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'百分比，保留一位小數(shù)
List.AddItem“分?jǐn)?shù)段”+Str（b（i））+“個(gè)數(shù)”+Str（a（i））+“百分比”+Str（p）+“%”
Next i
End Sub
Private Sub Form _Load（　?。?br />'獲取n個(gè)人的“信用分”，并存儲(chǔ)在數(shù)組d中
'代碼略
End sub