EXCL 中限定范围的随机数之和为固定值
答案:2 悬赏:0 手机版
解决时间 2021-03-08 14:25
- 提问者网友：沦陷
- 2021-03-07 13:57
EXCL 中限定范围的随机数之和为固定值
最佳答案
- 五星知识达人网友：青灯有味
- 2021-03-07 15:32
Public Function RandC(R_Count As Long, sum_i As Long) As String
'R_Count为随机数个数
'sum_i为限定的随机数和
Dim n1 As Long
Dim Rt As String
Dim i As Long
Dim Rt_sum As Long
For i = 1 To R_Count - 1
Randomize
n1 = Int(Rnd() * sum_i) + 1
If Rt_sum + n1 <= sum_i Then
Rt = Rt & n1 & ";"
Rt_sum = Rt_sum + n1
Else
Rt = Rt & "0;"
End If
Next i
Rt = Rt & (sum_i - Rt_sum)
RandC = Rt
'返回用分号隔开的字符串
End Function
'R_Count为随机数个数
'sum_i为限定的随机数和
Dim n1 As Long
Dim Rt As String
Dim i As Long
Dim Rt_sum As Long
For i = 1 To R_Count - 1
Randomize
n1 = Int(Rnd() * sum_i) + 1
If Rt_sum + n1 <= sum_i Then
Rt = Rt & n1 & ";"
Rt_sum = Rt_sum + n1
Else
Rt = Rt & "0;"
End If
Next i
Rt = Rt & (sum_i - Rt_sum)
RandC = Rt
'返回用分号隔开的字符串
End Function
全部回答
- 1楼网友：迷人又混蛋
- 2021-03-07 17:11
你好！
比如，我想得到五个随机数据，限定他们的和为100，用Excel怎么实现。 4工具/数据分析/随机数发生器，在对话框中，变量个数，1，表示产生一列数据
打字不易，采纳哦！
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯