小李統(tǒng)計2017年各國在浙江省旅游人數，設計了一個程序。程序運行時在列表框List1中輸出已經按照大洲類別分類的信息，在文本框Text1中輸入“大洲類別”如：，歐洲，單擊“查找排序”按鈕Command2，將在列表框List2中輸出該“大洲類別”旅游人數從低到的高信息。程序運行界面如圖所示：
實現上述功能的VB代碼如下，但加框處代碼有錯，請改正。
DimkAsInteger′k變量用來存放國家的個數Private Sub Form_ Load （　?。?br />′從數據庫中讀取數據并存儲在相關變量中。aa（　?。到M用來存放國家名稱，bb （　?。到M用來存放大洲類別，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

。