VB语言如何实现组合后多条匹配条件过滤输出问题用vb语言同时满足下列2个条件就输出源代码(1)假定从1-15这15个数字中任选6个全组合输出(每行输出6个不相同数字,并且从小到大排列)(2)将第一
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/30 16:29:46
VB语言如何实现组合后多条匹配条件过滤输出问题用vb语言同时满足下列2个条件就输出源代码(1)假定从1-15这15个数字中任选6个全组合输出(每行输出6个不相同数字,并且从小到大排列)(2)将第一
VB语言如何实现组合后多条匹配条件过滤输出问题
用vb语言同时满足下列2个条件就输出源代码
(1)假定从1-15这15个数字中任选6个全组合输出(每行输出6个不相同数字,并且从小到大排列)
(2)将第一问得到数据过滤,当每一行6个数字含有下列9条4码中的2至5条(最少含有2条最多5条)就输出,结果共有62组就正确
01,02,03,06
01,02,03,08
01,02,03,09
02,05,06,08
02,06,07,08
05,06,07,09
06,08,09,10
08,09,10,11
06,07,08,13
VB语言如何实现组合后多条匹配条件过滤输出问题用vb语言同时满足下列2个条件就输出源代码(1)假定从1-15这15个数字中任选6个全组合输出(每行输出6个不相同数字,并且从小到大排列)(2)将第一
Sub countnum()
NumLen = 15
For i = 1 To NumLen
For j = i + 1 To NumLen
For k = j + 1 To NumLen
For l = k + 1 To NumLen
For m = l + 1 To NumLen
For n = m + 1 To NumLen
UserForm1.Text1.Text = UserForm1.Text1.Text & Chr(10) & Chr(13) & i & "," & j & "," & k & "," & l & "," & m & "," & n
Next
Next
Next
Next
Next
Next
End Sub
第一问可以这样,第二问我还在想.简单说就是循环套用,然后输出循环变量