2,462
社区成员
发帖
与我相关
我的任务
分享
Dim n As Integer, m As Integer, i As Integer, p As Integer, tmp As Integer
n = 4
m = 100
Randomize
For i = 1 To n - 1
Do
p = m * Rnd()
tmp = m - p
Loop Until tmp > n - i
m = tmp
Debug.Print i, p
Next i
Debug.Print i, m