主题：[求助]生成随机但可控的整数

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)) '最后一行