请教一个随机分组的问题

zopey

Private Sub CommandButton1_Click()
Range("a2:d65535").ClearContents
Dim arr(), brr()
ReDim arr(1 To 60000, 1 To 4)
ReDim brr(0 To 20)
brr(0) = 100: brr(1) = 50: brr(2) = 25

haha:
For i = 1 To 7
k0 = k
If i > 2 Then
   k2 = Application.Max(0, 2 * brr(i - 1) - brr(i - 2))
   brr(i) = Int(Rnd() * (brr(i - 1) - k2 + 1)) + k2
End If

For j = i To 0 Step -1
    k = k + 1
    arr(k, 1) = i
    arr(k, 2) = j
    arr(k, 3) = Application.Combin(i, j)

    If j = i Then
       arr(k, 4) = brr(i)
    ElseIf j = 0 Then
        arr(k, 4) = brr(0)
        For l = 1 To i
          arr(k, 4) = arr(k, 4) - arr(k0 + l, 3) * arr(k0 + l, 4)
        Next
    Else
       arr(k, 4) = arr(k - 1 - i, 4) - arr(k - 1, 4)
    End If
    If arr(k, 4) < 0 Then k = 0: GoTo haha
Next
Next

[a2].Resize(60000, 4) = arr
End Sub


N集合问题.rar (10.08 KB, 下载次数: 3)

2018-10-5 12:05 上传

点击文件名下载附件

zopey

brr(0) = 100: brr(1) = 50: brr(2) = 25 代入运算程序 随机测试，
1、i=1 to 7集合 找到了3组解  ；
2、i=1 to 8 集合 测试多次 ，找不到合理解 （除非 修改 初始参数值 ，比如 100 变 150）。
从vba 测试结果看， 最大只能找出  7组数 满足 每2个 集合有 25相同数字。