刚开始学vb 自己对彩票3D 比较感兴趣 想自己做个3D随水工具 作到这一步 怎么都不会了 下面这段代码
只能一次选中一个chk 然后执行 在取消选中 再选下一个 再执行 再取消选中 这样重复的选 才不会出错 要是同时选中的话 就出错了
请朋友们帮忙 教我怎么改一下 谢谢大家了
我想实现的是 当选中chk（0）的时候 过滤掉text1中所有包涵00的 三个数字（三个数字一组） 要是
同时选中chk（0）；chk（1）; chk（2）的时候 就同时删除掉包涵 00 01 02 的所有三个数字 只剩下111 这3个数字
text1中的字符和chk.caption(--)中的字符  是不固定的
text1“000 001 010 011 100 101 110 111 012”
chk（0）caption（00）； chk（1）caption（01）；chk（2）caption（02）

Dim lmi, lmj, lmk, lmo, lmp, i, j, a() As Integer
    Dim lmgl As String
    Dim lmgl1 As String
    Dim lmgl2 As String
   
   
    lmgl = ""
    lmgl1 = Trim(txtjg.Text)
   
    While Len(lmgl1) > 0
        
        lmgl2 = Left(lmgl1, 3)
        lmgl1 = Mid(lmgl1, 5)
        
        
        For i = 0 To 2        
        lmi = Mid(chklm(i).Caption, 1, 1)
        lmj = Mid(chklm(i).Caption, 2, 1)
        lmk = Mid(lmgl2, 1, 1)
        lmo = Mid(lmgl2, 2, 1)
        lmp = Mid(lmgl2, 3, 1)
        
            
            
                If chklm(i).Value = 1 Then 这里循环的时候 同时选中出错 我想了好久 可是 自己比较笨 实在想不出怎么写了
                    If lmi & lmj <> lmk & lmo And lmi & lmj <> lmk & lmp And lmi & lmj <> lmo & lmp And _
                       lmj & lmi <> lmk & lmo And lmj & lmi <> lmk & lmp And lmj & lmi <> lmo & lmp Then
                          
                       lmgl = lmgl2 & " " & lmgl
                       
                    End If
                End If
               
            
            
       Next
    Wend
  
  txtjg.Text = lmgl

朋友 谢谢了  可是 不行啊  怎么能把那个 110 也去掉呢？ 这样只能去掉 和 chklm(j).caption 一样的 字符  
可是 两个字符分开出现 就不行了  

太谢谢了  解决了 烦恼我多日的 难题