VB语言从8选6全组合有条件

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/15 08:39:23

VB语言从8选6全组合有条件
从1,2,3,6,8,9,12,16这8个数字中任取6个全组合输出（每组有不同的6个数字组成)
并且满足条件每组中1,2,3,6中最少有1至2个,
高手来啊要有源代码
下面输出结果就正确
01-02-08-09-12-16
01-03-08-09-12-16
01-06-08-09-12-16
02-03-08-09-12-16
02-06-08-09-12-16
03-06-08-09-12-16

Private Sub Form_Load()
s = "1,2,3,6,8,9,12,16"
s1 = Split(s, ",")
For i = 1 To 3
s3 = s1(i - 1)
For i2 = i + 1 To 4
s4 = s3 & "-" & s1(i2 - 1)
For i3 = i2 + 1 To 5
s5 = s4 & "-" & s1(i3 - 1)
For i4 = i3 + 1 To 6
s6 = s5 & "-" & s1(i4 - 1)
For i5 = i4 + 1 To 7
s7 = s6 & "-" & s1(i5 - 1)
For i6 = i5 + 1 To 8
s8 = s7 & "-" & s1(i6 - 1)
i7 = 0
If InStr(s8, "1") = 1 Then
i7 = i7 + 1
End If
If InStr(s8, "-2-") > 0 Or InStr(s8, "2") = 1 Then
i7 = i7 + 1
End If
If InStr(s8, "-3-") > 0 Or InStr(s8, "3") = 1 Then
i7 = i7 + 1
End If
If InStr(s8, "-6-") > 0 Then
i7 = i7 + 1
End If
If i7 = 1 Or i7 = 2 Then
s2 = s2 & vbCrLf & s8
End If
Next
Next
Next
Next
Next
Next

Clipboard.Clear
Clipboard.SetText s2
End Sub
再问：如何设置VB图形界面啊
再答：什么都不要。不过这个结果是保存到剪切板的。
再问：剪切板在哪里啊好似直接代码不行啊
再答：。。。 Clipboard.Clear Clipboard.SetText s2 改为 msgbox s2 就可以看效果了或者加个文本框，设置多行属性Multiline为TRUE 上面代码改为 text1.text=s2

VB语言从8选6全组合有条件 VB语言从8选6全组合过滤行 VB语言从11选6全组合相连 C语言实现从8选6全组合输出 C语言从8选6全组合过滤相同数字 C语言编程10选6全组合并且满足6个数字和问题 vb语言随机数问题vb语言中如何编程实现从7,8 ,54,69,12,32这组数字中随机产生一个数字 lg7.6 用VB语言怎么表示? VB语言从多个范围产生一个随机数 VB语言题目:计算y=2/3!+5/6!+8/9! 在VB语言中,表达式 8\3*61 Mod 5 排列组合算法程序用C.C++.asp.或者jsp.vb.随便一种语言.输出1到33.33个数.从中选6个数.不重复.输出