主题：请教 各位老大

拆分成几个？对数值有什么要求？这样做有什么意义？

代码

 

Dim num As Integer = 19781
Dim rs As new List(Of Integer)
Do While num >= 2000
    Dim r As Integer = Rand.Next(1999)
    If rs.Contains(r) = False Then
        rs.Add(r)
        num -= r
    End If
Loop
rs.Add(num)

For Each n As Integer In rs
    output.show(n)
Next

 等于啊

Dim num As Integer = 19781
Dim rs As new List(Of Integer)
Do While num >= 2000
    Dim r As Integer = Rand.Next(1001,1999)
    If rs.Contains(r) = False Then
        rs.Add(r)
        num -= r
    End If
Loop
rs.Add(num)

For Each n As Integer In rs
    output.show(n)
Next

 多试几次即可，最后一个有点偏差的。