二选一
不就演变成了二进制了吗？

循环，2的（人数）次方
余0，选第一份礼物
余1，选第二份礼物

保存最小差。


总是感觉这样的题目没意思，一点实际意义都没有，完全可以换一个题材的。


Sub moz()
Open "K:\1.txt" For Input As #1
Input #1, a%
Do Until EOF(1)
    Input #1, a%, b%
    c$ = addtolist$(Abs(a% - b%), c$)
Loop
Close #1
Do While Len(c$) > 10
    c$ = addtolist$(Abs(Val(Mid$(c$, 1, 5)) - Val(Mid$(c$, 6, 5))), Mid$(c$, 11))
Loop
Debug.Print Abs(Val(Mid$(c$, 1, 5)) - Val(Mid$(c$, 6, 5)))
End Sub
Function addtolist$(x%, y$)
If x% = 0 Then
    addtolist$ = y$
    Exit Function
End If
    z$ = Right$("     " + Str$(x%), 5)
If y$ = "" Then
    addtolist$ = z$
Else
    For i% = 1 To Len(y$) Step 5
        If z$ > Mid$(y$, i%) Then
            addtolist$ = Left$(y$, i% - 1) + z$ + Mid$(y$, i%)
            Exit Function
        End If
    Next
    addtolist$ = y$ + z$
End If
End Function

一架波音747改装成货机，机舱被限制为只能装载单列ALF连体集装箱（由两个单只箱体合并成一个连体箱，中间有隔板），但装载的左右方向可以调换，每个箱内货物实重均有标示，请计算出最小的重心差。
（其实也不切实际，但可以忽弄非专业人士，像原题那样的事情，简直笑掉人大牙。）
[img]http://cargo.koreanair.com/img/chn/iimages/cargocampus_m3pic04.gif[/img]

错了吧，好像用文件输入输出法没输出。
注：我已经改过了，还是不行。

麻烦你把程序改成标准文字输入输出的给我行吗？

还有，能不能把程序改成没子程序和过程的？

moz的做法看上去是有点繁琐，但是很有条理，只是会让新手犯晕。。。。。

DIM f(1000) AS INTEGER
DIM cost(30) AS INTEGER
INPUT lines
sum = 0
FOR i = 1 TO lines
    INPUT a, b
    cost(i) = ABS(a - b) * 2
    sum = sum + cost(i)
NEXT
half = sum / 2
FOR i = 1 TO lines
    c = cost(i)
    FOR v = half TO c STEP -1
        lv = f(v - c) + c
        IF (f(v) < lv) THEN f(v) = lv
    NEXT
NEXT
PRINT half - f(half)

6楼的程序很精彩，看了很久才明白，高手就是高手。

非常感谢！