不知道 为什么 一运行 就死掉  我不知道 是哪里错了 请朋友们 帮我看看  谢谢 大家了  （就15分了）   
txtjg.text"000 001 010 011 100 101 110 111"
chklm(0) caption(00)  chklm(1) caption(01)
    Dim sTmp As String
    Dim aStr() As String
    Dim aRet() As String
    Dim i, j As String
   
    sTmp = txtjg.Text
    aStr = Split(txtjg.Text, " ")
   
    While sTmp <> ""
   
        For i = 0 To 1
        
            If optlmpc.Value = True Then
                If chklm(i) = 1 Then

                j = chklm(i).Caption
                aRet = Filter(aStr, j, False)
            
                End If
            End If
        Next
    Wend
   
    txtjg.Text = Join(aRet, " ")

谢谢 朋友们的指点