[求助]数字组合问题

lw0851

我不会编程，高手帮忙解决一下：请教一下有两组数据，假设A组为1-33中的任意15个数字，B组为1-16中的任意10个数字；这些数据已经存在；怎样从A组的15个数字中提取6个数字组合,不要求排序，然后B组中提取1个数字同A组组合成7个数字；最后批量输出为文本文件。实际上就是双色球的批量复式转单式，由于找不到工具，只好求助高手！

northwolves

欢迎lw0851朋友

Sub seq()
Application.ScreenUpdating = False
Dim x As New Collection, a(1 To 15), b(1 To 10), x1, x2, x3, x4, x5, x6, x7, n, arr()
Randomize
For x1 = 1 To 33
x.Add x1
Next
For x1 = 1 To 15
x2 = 1 + Int(Rnd * x.Count)
a(x1) = x(x2)
x.Remove x2
Next

Set x = Nothing
For x1 = 1 To 16
x.Add x1
Next
For x1 = 1 To 10
x2 = 1 + Int(Rnd * x.Count)
b(x1) = x(x2)
x.Remove x2
Next

ReDim arr(1 To 10 * WorksheetFunction.Combin(15, 6), 1 To 1)
For x1 = 1 To 10
For x2 = x1 + 1 To 11
For x3 = x2 + 1 To 12
For x4 = x3 + 1 To 13
For x5 = x4 + 1 To 14
For x6 = x5 + 1 To 15
For x7 = 1 To 10
n = n + 1
arr(n, 1) = a(x1) & "," & a(x2) & "," & a(x3) & "," & a(x4) & "," & a(x5) & "," & a(x6) & "---" & b(x7)
Next x7, x6, x5, x4, x3, x2, x1

[a1] = "A组:" & Join(a, ",")
[a2] = "B组:" & Join(b, ",")
[a4].Resize(n, 1) = arr
[A:A].Columns.AutoFit
Application.ScreenUpdating = True
End Sub

lw0851

请帮我看一下，这个文件的数据该怎样做到批量复式转单式输出，对于编程一窍不通，看不懂，见笑了！ fC51VVIr.rar (27.28 KB, 下载次数: 24)

2007-8-10 14:30 上传

点击文件名下载附件
[求助]数字组合问题

lw0851

请northwolves帮忙看看文件

northwolves

try:

Sub seq()
Dim arr, x0&, x1&, x2&, x3&, x4&, x5&, x6&, x7&, n&, s() As String
arr = [a1].CurrentRegion
ReDim s(1 To 50050 * UBound(arr))
For x0 = 1 To UBound(arr)
For x1 = 1 To 10
For x2 = x1 + 1 To 11
For x3 = x2 + 1 To 12
For x4 = x3 + 1 To 13
For x5 = x4 + 1 To 14
For x6 = x5 + 1 To 15
For x7 = 17 To 26
n = n + 1
s(n) = arr(x0, x1) & "," & arr(x0, x2) & "," & arr(x0, x3) & "," & arr(x0, x4) & "," & arr(x0, x5) & "," & arr(x0, x6) & "---" & arr(x0, x7)
Next x7, x6, x5, x4, x3, x2, x1, x0
Open "d:\result.txt" For Binary As #1
Put #1, , Join(s, vbCrLf)
Close #1
MsgBox "ok"
End Sub