[已解决]求助,凑数算法

lipenghui

1,有四个数分别为1、4、6、9进行凑数，要凑的数为10
2,凑数的方法为，1*10＝10是一种方案，1*2+4*2＝10是第二种方案，4*1+6*1＝10是第三种，以此类推

用VBA程序把这几种方案都列出来，如下图

最佳答案

月排行榜 / 总排行榜

爱疯

2016-10-28 18:39

Sub test()
    Dim A, B, i, j, k, l
    A = Array(1, 4, 6, 9)
    ReDim B(UBound(A))
    For i = 0 To UBound(B)
        B(i) = 10 \ A(i)
    Next i

    For i = 0 To B(0)
        For j = 0 To B(1)
            For k = 0 To B(2)
                For l = 0 To B(3)
                    If A(0) * i + A(1) * j + A(2) * k + A(3) * l = 10 Then Debug.Print i, j, k, l
                Next l
            Next k
        Next j
    Next i
End Sub

这样可以吗？

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, B, i, j, k, l
    A = Array(1, 4, 6, 9)
    ReDim B(UBound(A))
    For i = 0 To UBound(B)
        B(i) = 10 \ A(i)
    Next i

    For i = 0 To B(0)
        For j = 0 To B(1)
            For k = 0 To B(2)
                For l = 0 To B(3)
                    If A(0) * i + A(1) * j + A(2) * k + A(3) * l = 10 Then Debug.Print i, j, k, l
                Next l
            Next k
        Next j
    Next i
End Sub

这样可以吗？

QCW911

爱疯 发表于 2016-10-28 18:39
Sub test()
    Dim A, B, i, j, k, l
    A = Array(1, 4, 6, 9)

有没有通用的方法？
10 不固定
1,4,6,9 不固定

爱疯

通用的没学会  

lipenghui

爱疯 发表于 2016-10-28 18:39
Sub test()
    Dim A, B, i, j, k, l
    A = Array(1, 4, 6, 9)

你好，我想问一下，这个可否帮忙写成，递归的形式，因为1，4，6，9这个，个数可能不一定，有时可能是4个数去算有时可能是8个

lipenghui

爱疯 发表于 2016-10-31 10:02
通用的没学会

哈哈，好吧，不过还是谢谢你了

香川群子

通用的。