[求助] 新手求助 循环问题 请朋友们帮忙 谢谢大家了
刚开始学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