学进去

修改VB程序，使其具有下列功能：在左边列表框List1中选择一个车牌，单击“判断”按钮Command1，根据该车牌最后一位数字进行限行判断（若为偶数则奇数日期限行，奇数则偶数日期限行），并将判断结果显示在文本框Text2中。
         
Private Sub①______  '单击List1,将列表框中选中的内容显示在Text1中
Text1.Text= List1.List(List1.ListIndex)  '将当前选中的List1的内容显示在Text1中
Text2.Text="  "
End Sub
Private Sub Command1_Click()
Dim i As Integer,cp As String,c As String
cp= Text1.Text

For i =②_____To 4 Step－1

с= Mid(cp, i, 1)
If c>="0"And c<="9" Then   '若c是数字字符,则记录该数字
If Val(c)mod 2-1 Then
Text2.Text ="偶数日期限行"
Else
Text2:Text ="奇数日期限行"
③______
Exit For   '退出循环
End If
Next i
End Sub