查人人中国名人网国际洁具品牌排行榜:完善功能
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 10:40:38
描述 ： 3组check控件数组,每组代表0-9,表示个位,十位,百位,每次把check.value=1的控件进行组合,在根据check4()和check5()、text5()
三个控件数组按大小比、奇偶比、和值这三个条件进行筛选，然后通过MSFlexGrid或DataGrid控件把结果显示出来
事例：通过check1（），check2（），check3（）在个位选取1，2，3 十位选取5，6 百位选取7，8形成3个数的组合
然后通过check4（）选择大小比比如选择的是1：2，和3：0，check5（）选择奇偶比比如选择的是2：1和0：3，然后在text5()输入
和值，比如11和16 然后按这些条件对3个数的组合进行筛选，把符合条件的结果通过DataGrid显示出来
要求：在
Dim I As Integer, j As Integer, K As Integer, L As Integer, S1 As String, S2 As String
List1.Clear
L = Check1().UBound
For I = 0 To L
S1 = Check1(I).Index & " " & Check2(I).Index & " " & Check3(I).Index
For j = 0 To L
For K = 0 To L
S2 = Check1(I).Index & " " & Check2(j).Index & " " & Check3(K).Index
If S1 <> S2 Then List1.AddItem S2
Next K
Next j
Next I
代码基础上,完成
MSFlexGrid或DataGrid控件都可以
数据库已经建好 AAA.MDB
三个控件数组按大小比、奇偶比、和值这三个条件进行筛选，然后通过MSFlexGrid或DataGrid控件把结果显示出来
事例：通过check1（），check2（），check3（）在个位选取1，2，3 十位选取5，6 百位选取7，8形成3个数的组合
然后通过check4（）选择大小比比如选择的是1：2，和3：0，check5（）选择奇偶比比如选择的是2：1和0：3，然后在text5()输入
和值，比如11和16 然后按这些条件对3个数的组合进行筛选，把符合条件的结果通过DataGrid显示出来
要求：在
Dim I As Integer, j As Integer, K As Integer, L As Integer, S1 As String, S2 As String
List1.Clear
L = Check1().UBound
For I = 0 To L
S1 = Check1(I).Index & " " & Check2(I).Index & " " & Check3(I).Index
For j = 0 To L
For K = 0 To L
S2 = Check1(I).Index & " " & Check2(j).Index & " " & Check3(K).Index
If S1 <> S2 Then List1.AddItem S2
Next K
Next j
Next I
代码基础上,完成
MSFlexGrid或DataGrid控件都可以
数据库已经建好 AAA.MDB
????