主题：请教 各位老大

请教  如何把 19781 拆分成几个小于 2000  并且 不相同的 数值   用什么公式和函数啊~~

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

几个都行 只要是小于2000的就行   

 

代码

 

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

 太好了 我试试 

 

拆分后数值的和 还要等于  19781

 等于啊

老大 拆分后是数值 要大于 1000 < 2000

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

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