开一个卖算法的公司，用vba，如何？

andysky

Sub 二十个随机数之和等于1000()
    v = 20     '加数的个数
    a = 40     '下限
    b = 70     '上限
    s = 1000    '合计
    t = Int(s / v)
    Dim ar
    ReDim ar(1 To v, 1 To 1)
    For i = v - 1 To 1 Step -1
        If t >= 10 Then
            ar(i, 1) = Int(Rnd() * (b - t) + t)
        Else
            ar(i, 1) = Int(Rnd() * (t - a) + a)
        End If
        s = s - ar(i, 1)
        t = Round(s / i, 0)
    Next
    If s > 0 Then
        ar(v, 1) = s
    Else
        ar(v - 1, 1) = ar(v - 1, 1) + s - a
        ar(v, 1) = a
    End If
    [a1:a20] = ar
End Sub

用你的代码，小小修改一下，为什么生成的值中有负数呢？
限制条件是20个40到70之间的相加等于1000。