小李統(tǒng)計(jì)2017年各國在浙江省旅游人數(shù)，設(shè)計(jì)了一個(gè)程序。程序運(yùn)行時(shí)在列表框List1中輸出已經(jīng)按照大洲類別分類的信息，在文本框Text1中輸入“大洲類別”如：，歐洲，單擊“查找排序”按鈕Command2，將在列表框List2中輸出該“大洲類別”旅游人數(shù)從低到的高信息。程序運(yùn)行界面如圖所示：
實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請改正。
DimkAsInteger′k變量用來存放國家的個(gè)數(shù)Private Sub Form_ Load （　　）
′從數(shù)據(jù)庫中讀取數(shù)據(jù)并存儲(chǔ)在相關(guān)變量中。aa（　?。?shù)組用來存放國家名稱，bb （　?。?shù)組用來存放大洲類別，cc （　?。?shù)組用來存放旅游人數(shù)。
′代碼略
End Sub
Private Sub Command2_ Click （　?。?br />Dim zb（1 To 10）As String用來存放大洲類別
Dim wz（1 To 10）As Integer用來存放每類大洲開始的位置
Dim cd（1 To 10 As Integer用來存放每類大洲的國家個(gè)數(shù)
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

。