[求助]生成随机数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]生成随机数

共有2567人关注过本帖树形打印复制链接主题：[求助]生成随机数

dy6608

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：134 积分：1865 威望：0 精华：0 注册：2015/2/10 21:41:00

[求助]生成随机数 发帖心情

Post By：2019/11/7 21:10:00 [只看该作者]

有点甜老师或其他前辈：

随机生成10个数，且生成的10个数之和等于100，求提示或代码

有点酸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2019/11/7 23:17:00 [只看该作者]

例如生成10个0到20之间的随机数，和为100：

Dim lst As new List(of Integer)

For i As Integer= 0 To 9

lst.add(rand.Next(0,20))

Dim rd As Integer = lst.sum - 100

Dim sp As Integer = iif(rd>0, -1,1)

Do While rd <> 0

Dim idx As Integer = rand.Next(1,10)

If lst(idx) + sp >= 0 Then

lst(idx) = lst(idx) + sp

rd = rd + sp

End If

Loop

For Each val As Integer In lst

output.show(val)

output.show("合计:" & lst.Sum)

你可以在命令窗口执行上面的代码

dy6608

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：134 积分：1865 威望：0 精华：0 注册：2015/2/10 21:41:00

Post By：2019/11/8 10:31:00 [只看该作者]

谢谢老师

主题：[求助]生成随机数