Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]生成随机但可控的整数

1楼
alanwu 发表于:2024/7/4 20:50:00
图片点击可在新窗口打开查看
相实现上报数量403,根据8到11,生成下图这样的数据,接近平均值+—,又不能有小数,最后生成的4条数量的和是上报数量,这个代码该怎么写?
图片点击可在新窗口打开查看
2楼
有点蓝 发表于:2024/7/4 21:09:00
Dim 上报数量 As Integer = 403
Dim 起始时间 As Integer = 8
Dim 结束时间 As Integer = 11
Dim 行数 As Integer = 结束时间 - 起始时间 + 1
Dim 平均值 As Integer = Math.Floor(上报数量 / 行数)
Dim 余数 As Integer = 上报数量 - 行数 * 平均值 
Dim sum As Integer
For i As Integer = 起始时间 To 结束时间 - 1 '除最后一行之外的处理
    Dim n As Integer = 平均值 + Rand.Next(0, 余数)
    sum = sum + n
    Output.Show(i & ",数量=" & n)
Next
Output.Show(结束时间 & ",数量=" & (上报数量 - sum)) '最后一行
[此贴子已经被作者于2024/7/4 21:28:28编辑过]
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.