| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 438 人关注过本帖
标题:求助 循环问题
取消只看楼主 加入收藏
xy_fdgg
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2011-3-8
结帖率:90%
收藏
已结贴  问题点数:20 回复次数:1 
求助 循环问题
txtjg“000 001 010 011 100 101 110 111”
chklm(0)caption(00) chklm(1)caption(01) chklm(2)caption(02)
当我选中chklm(0)caption(00)时 下面这段代码没问题,如果我一次全部选中的话 就错了 可是我不知道该怎么写
请大家 帮我看看 下面这段代码 应该怎么改一下  谢谢了
Dim lmi, lmj, lmk, lmo, lmp, i, j As Integer
    Dim lmgl As String
    Dim lmgl1 As String
    Dim lmgl2 As String
   
    lmgl = ""
    lmgl1 = Trim(txtjg.Text)
   
    While lmgl1 <> ""
        
        lmgl2 = Left(lmgl1, 3)
        lmgl1 = Mid(lmgl1, 5)
        
        For i = 0 To 54
        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 optlmpc.Value = True Then
                  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
               
            End If
            
       Next
    Wend
  
  txtjg.Text = lmgl
2011-03-26 11:46
xy_fdgg
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2011-3-8
收藏
得分:0 
回复 2楼 Artless
111 111 111 110 110 101 101 100 011 011 010 001 000 000
这是同时选中3个的结果  谢谢关心
2011-03-28 01:55
快速回复:求助 循环问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025551 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved