VB语言从8选6全组合过滤行

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/14 14:45:07

VB语言从8选6全组合过滤行
从1,2,3,6,8,9,12,16这8个数字中任取6个全组合输出（每组有不同的6个数字组成)
并且满足条件每行中有5个相同数字就过滤,只保留一行
例如结果
1-2-3-6-8-9
1-2-3-6-8-12
1-2-3-6-8-16
只需保留任意一行
1-2-3-6-8-9
高手来啊要有源代码

Sub DoArr()
Dim a(9) As Integer
a(1) = 1:a(2) = 2:a(3) = 3
a(4) = 6:a(5) = 8:a(6) = 9
a(7) = 12:a(8) = 16
Dim Arr As String
Dim newArr As String,Oldarr As String
Open "d:\456.txt" For Output As #12
For i = 1 To 8
For j = i + 1 To 8
Arr = ""
For m = j + 1 To 8
For n = m + 1 To 8
For p = n + 1 To 8
For q = p + 1 To 8
newArr = a(i) & "-" & a(j) & "-" & a(m) & "-" & a(n) & "-" & a(p) '前5位
If Oldarr = newArr Then
Arr = "" '有重复为""；换行
Else
Arr = newArr & "-" & a(q)
Oldarr = newArr '不重复,更改old值
End If
Print Arr
Print #12,Arr
Next q
Next p
Next n
Next m
Next j
Next i
Close #12
End Sub
Private Sub Command1_Click()
Cls
DoArr
End Sub
456.txt
1-2-3-6-8-9
1-2-3-6-9-12
1-2-3-6-12-16
1-2-3-8-9-12
1-2-3-8-12-16
1-2-3-9-12-16
1-2-6-8-9-12
1-2-6-8-12-16
1-2-6-9-12-16
1-2-8-9-12-16
1-3-6-8-9-12
1-3-6-8-12-16
1-3-6-9-12-16
1-3-8-9-12-16
1-6-8-9-12-16
2-3-6-8-9-12
2-3-6-8-12-16
2-3-6-9-12-16
2-3-8-9-12-16
2-6-8-9-12-16
3-6-8-9-12-16
再问：大哥好高手，但如何实现输出到txt文本中更好，请指点
再答：我不是输了嘛？ D:\456.txt 你想输到什么地方，什么文件名，就改这个啦！你运行过了？那看看D盘，有否456.txt啊

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个数.不重复.输出