為了安排寢室，將學(xué)生按性別分類，小陳設(shè)計了一個VB程序，運行該程序，單機(jī)“數(shù)據(jù)導(dǎo)入”按鈕Command1后，左邊列表框List1中顯示40位學(xué)生的編號和性別；然后單機(jī)“數(shù)據(jù)處理”按鈕Command2，中間列表框List2中顯示所有女生的信息，右邊列表框List3中顯示所有男生的信息，并在相應(yīng)的列表框下方顯示人數(shù)．運行結(jié)果如圖所示．

實現(xiàn)上述功能的VB程序如下，加框處代碼有錯，請改正．
Dim a（1To 40）As String'數(shù)組a用于存儲學(xué)生編號
Dim b（1To 40）As String'數(shù)組b用于存儲學(xué)生性別
Private Sub Form_Load （　　）
'將學(xué)生的編號和性別分別存放在數(shù)組a和數(shù)組b中
'代碼略
…
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer
List1．Clear
List2．Clear
List3．Clear
'在列表框List1中顯示40位學(xué)生的編號和性別
For i=1To 40
Text1
AddItem a（i）+““+b（i）'（1）
Next i
End Sub
Private Sub Command2_Click （　　）
Dim n As Integer'用于存儲女生人數(shù)
Dim m As Integer'用于存儲男生人數(shù)
Dim i As Integer
List2．Clear
List3．Clear
n=0：m=0
For i=1To 40
If Then'（2）
List2．AddItem a（i）'在列表框List2中顯示女生信息
n=n+1
Else
List3．AddItem a（i）'在列表框List3中顯示男生信息
'（3）
End If
Next i
Label1．Caption=“女生人數(shù)：“+Str（n）
Label2．Caption=“男生人數(shù)：“+Str（m）
End Sub.