VB基于微信红包的算法
vb吧
全部回复
仅看楼主
吧务
level 13
VBzhuyongxing 楼主
比如100 人 10元
2016年07月10日 15点07分 1
吧务
level 13
龙翔飞飞12
然后呢。。。
2016年07月11日 00点07分 3
level 6
☞Zaoly☜
100人，10元，平均每人0.1元。
就这么简单。
Private Sub Main()
Print 10 / 100 & "元"
End Sub
2016年07月11日 00点07分 4
龙翔飞飞12
楼主是大神 他应该不是这个意思[滑稽]
2016年07月11日 00点07分
水墨点苍😳
楼主的意思肯定不是固定金额红包，是拼手气红包[滑稽]
2016年07月11日 00点07分
☞Zaoly☜
@水墨点苍😳 额，好吧
2016年07月11日 23点07分
小小明ss
装逼[呵呵]
2016年07月25日 09点07分
level 10
水墨点苍😳
自己仿制的一个算法：
2016年07月11日 00点07分 5
☞Zaoly☜
“红包”的英文是“red packet”
2016年07月11日 23点07分
这个我💯
@☞Zaoly☜ (⊙o⊙)…[滑稽][滑稽][滑稽]
2016年07月25日 13点07分
level 10
水墨点苍😳
2016年07月11日 01点07分 6
龙翔飞飞12
0.00的那个人哭瞎[捂嘴笑][滑稽][你懂的]
2016年07月11日 01点07分
命幽
不存在0吧，，，
2016年07月11日 01点07分
水墨点苍😳
@龙翔飞飞12 很简单啊。随机数后面再加个0.01就好了
2016年07月11日 02点07分
吧务
level 13
VBzhuyongxing 楼主
函数加个 do while 红包<>0 loop
2016年07月11日 03点07分 7
level 11
骄傲地蚂蚁
我是先算平均值，然后随机数最大为这个平均值，最小为1分，最后一人为总钱减去少一人的随机和，最后一人则为手气最佳(想想为什么)，省去了排序......
2016年07月11日 07点07分 8
水墨点苍😳
平均值做随机数最大值的话，最后一个人获得的金额非常大。不合理。至少平均数的2倍做随机数最大值才合理！你可以写出来验证一下我的说法[勉强]
2016年07月11日 07点07分
水墨点苍😳
至于为什么平均数的2倍做随机数的最大值合理；你可以做个实验。假设平均数为50。你用100做随机数的最大值产生N个数（N足够大）。这样你去计算一下N个数的平均值。结果非常接近50。不要问我为甚么。我数学不好[阴险]
2016年07月11日 07点07分
水墨点苍😳
我6楼代码的倒数第三行就是这个原理
2016年07月11日 07点07分
骄傲地蚂蚁
@水墨点苍😳 明白你的意思，但这样还得要计算一次总额相符。
2016年07月11日 08点07分
level 11
作业课设
do随机数，条件剩余额大于剩余人数乘0.01
2016年07月11日 22点07分 11
吧务
level 13
Luosen56
实际微信红包并不是这样的。
你发五块钱10个人的 随机红包，就有某个包是三块几的。并不是随机包在平均值附近的算法。
2016年07月25日 12点07分 14
1