求最簡單代碼

lzx-shmily

有6個數,3.1   1.7    2    5.3   0.9   7.2 ,怎樣相加最接近10?求最簡單代碼。        

accessuser007

其中2个数相加，还是任意多个数相加？

lzx-shmily

任意,但不重復

lzx-shmily

頂一下

accessuser007

答案有两个：

2+0.9+7.2

1.7+2+5.3+0.9程序已经发送到你的信箱！不一定是最简单的代码，但是可行。仅供参考！

lzx-shmily

這是電腦報上的一道題,可拿50元大洋,accessuser007可將你的代碼再優化一下發過去試試。信箱:pcw-cjy@vip.sina.com  

海狸先生

把代码放上来看一看

lzx-shmily

附件如下:

lzx-shmily

聲明:不是我作的,是accessuser007

Trynew

其实就是求组合数，也可以使用递归算法。下面是优化一下原来的代码

Dim showstr As String

Dim totalA As Single

Dim A(6) As Single

Private Sub 命令0_Click()

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim l As Integer

Dim m As Integer

A(0) = 3.1

A(1) = 1.7

A(2) = 2

A(3) = 5.3

A(4) = 0.9

A(5) = 7.2

totalA = 10

For i = 0 To 5

  For j = i + 1 To 5

    For k = j + 1 To 5

      For l = k + 1 To 5

        For m = l + 1 To 5

            CountNum i, j, k, l, m

        Next

        CountNum i, j, k, l, 6

      Next l

      CountNum i, j, k, 6, 6

    Next k

    CountNum i, j, 6, 6, 6

  Next j

  CountNum i, 6, 6, 6, 6

Next i

MsgBox Replace(showstr, " + 0", "") & ";  totalA=" & Round(totalA, 2)

End Sub



Public Function CountNum(i As Integer, j As Integer, k As Integer, l As Integer, m As Integer)

      If Abs(A(i) + A(j) + A(k) + A(l) + A(m) - 10) = totalA Then

        showstr = showstr & ";  " & CSng(A(i)) & " + " & CSng(A(j)) & " + " & CSng(A(k)) & " + " & CSng(A(l)) & " + " & CSng(A(m))

      ElseIf Abs(A(i) + A(j) + A(k) + A(l) + A(m) - 10) < totalA Then

        totalA = Abs(A(i) + A(j) + A(k) + A(l) + A(m) - 10)

        showstr = CSng(A(i)) & " + " & CSng(A(j)) & " + " & CSng(A(k)) & " + " & CSng(A(l)) & " + " & CSng(A(m))

      End If

End Function