Private Sub Command1_Click()'保留
    BaoLiu True
End Sub

Private Sub Command2_Click()'删除
    BaoLiu fales
End Sub

Private Sub BaoLiu(s As Boolean)
    Dim s21 As Boolean, str As String, i As Integer, j As Integer, k As Integer
    For i = List1.ListCount - 1 To 0 Step -1
        k = 0
        str = List1.List(i)
        For j = 1 To 3
            If Val(Mid(str, j, 1)) > 4 Then k = k + 1
        Next j
        If k = 2 Then
            s21 = True
        Else
            s21 = False
        End If
        If (s And Not s21) Or (Not s And s21) Then List1.RemoveItem i
    Next i
End Sub