百十个位 分别是勾选框 数组  0 to 9
我的想法是百位178 十位 023 个位 4569  另外有一组勾选框 数组 （加 1 , 2 , 3 , 4) 就是想让 百十各位 分别加上都 1 2 3 4
结果是这样的百289 十位 134 个位 5670 加1
              390      245      6781。加2  。。。。。。。。
下面 是我自己写的  可是 是死循环  请朋友们 帮我想想 应该怎么改一下  谢谢了

For l = 0 To 3
        dzi = Mid(chkdz(l).Caption, 1, 1)
        If chkdz(l).Value = 1 Then
         
            For i = 0 To 9
   
                If chkdzbw(i).Value = 1 Then
                    i = Right((Val(i) + Val(dzi)), 1)
        
                    For j = 0 To 9
            
                        If chkdzsw(j).Value = 1 Then
                            j = Right((Val(j) + Val(dzi)), 1)
                            For k = 0 To 9
                                If chkdzgw(k).Value = 1 Then   
                                   k = Right((Val(k) + Val(dzi)), 1)
                        
                                    txtdz.Text = txtdz.Text & i & j & k & " "
                        
                                End If
                    
                            Next
               
                        End If
            
                    Next
        
                End If
   
            Next
        
        End If
    Next

[ 本帖最后由 xy_fdgg 于 2011-4-19 17:18 编辑 ]

可能是我表达水平太次 了   呵呵
百十个位 分别是勾选框 数组  0 to 9
百位  0 to 9
十位  0 to 9
个位  0 to 9   这样就循环出来  百十个位 三位数（如 000 001 002。。。。 之类的 ）
我的想法是百位178 十位 023 个位 4569  
百位  1 7 8  勾选框 0 to  9  只有 1 7 8 chk.Value = 1 其他都是 = 0
十位  0 2 3  同上
个位  4 5 6 9 同上
这样 得出来的结果是“839 836 835 834 829 826 825 824 809 806 805 804 739 736 735 734 729 726 725 724 709 706 705
704 139 136 135 134 129 126 125 124 109 106 105 104”
另外有一组勾选框 （数组 有4个 分别是1 , 2 , 3 , 4)  例如 chk（1）.value = 1 那么 我想实现的结果 是
百位  1 7 8 chk.value = 0;   就是1 7 8 分别加上 1  结果  2 8 9.value = 1
十位  0 2 3  同上
个位  4 5 6 9 同上
这是结果“210 215 216 217 230 235 236 237 240 245 246 247 810 815 816 817 830 835 836 837 840
845 846 847 910 915 916 917 930 935 936 937 940 945 946 947 ”
不知道 这样 是否能看明白
希望 会的朋友  帮帮兄弟  在这里 不胜感激啊

[ 本帖最后由 xy_fdgg 于 2011-4-20 17:54 编辑 ]