小李统计2017年各国在浙江省旅游人数，设计了一个程序。程序运行时在列表框List1中输出已经按照大洲类别分类的信息，在文本框Text1中输入“大洲类别”如：，欧洲，单击“查找排序”按钮Command2，将在列表框List2中输出该“大洲类别”旅游人数从低到的高信息。程序运行界面如图所示：
实现上述功能的VB代码如下，但加框处代码有错，请改正。
DimkAsInteger′k变量用来存放国家的个数Private Sub Form_ Load （　　）
′从数据库中读取数据并存储在相关变量中。aa（　　）数组用来存放国家名称，bb （　　）数组用来存放大洲类别，cc （　　）数组用来存放旅游人数。
′代码略
End Sub
Private Sub Command2_ Click （　　）
Dim zb（1 To 10）As String用来存放大洲类别
Dim wz（1 To 10）As Integer用来存放每类大洲开始的位置
Dim cd（1 To 10 As Integer用来存放每类大洲的国家个数
Dim c As String,pos As Integer,ld As Integer
zb（1）=bb（1）：wz（1）=1：cd（1）=I
n=1
c=Text1．Text
Fori=2To k
If Then①
cd（n）=cd（n）+1
Else
n=n+1
zb（n）=bb（i）：cd（n）=1：wz（n）=i
End If
Next i
Fori=1Ton
If zb（i）=c Then pos=wz（i）：Id=ed（i）
Next i
Fori= ②
Forj=pos+ld-1Toi+I Step-1
Ifcc（j）＜cc（j-1）Then
t=aa（j-1）：aa（j-1）=aa（j）：aa（j）=t
t=cc（j-1）：cc（j-1）=cc（j）：cc（j）=t
End If
Next j
Next i
Fori=pos To pos+1d-1
List2．AddItem aa（i）+”“+bb（i）+““+Str（cc（i））”
Next iEnd Sub
程序中①处改为

bb（i）=zb（n）

bb（i）=zb（n）

。
程序中②处改为

posTopos+ld-2

posTopos+ld-2

。