[已解决]这样的随机数如何选

pengyx

选N个随机数
条件1、随机数大于Ｋ１且小于Ｋ２（Ｋ１、Ｋ２为正整数）
　　２、随机数为正整数
　　３、在Ｎ个随机数中有且只有Ｍ个数，小于Ｎ个随机数的算术平均值
要求：１、用ＶＢＡ实现
　　　２、Ｋ１、Ｋ２、Ｎ、Ｍ在文本框中输入，在代码中引用
　　　３、将Ｎ个随机数打印在ＥＸＣＥＬ表中，打印位置和格式不限，但本次选的Ｎ个数不能复盖上一次选的N个数。也就是说，每次执行宏的结果都要保存在表中
           4、将M个数标记为红色
           5、M个数在N个数中的位置随机

最佳答案

月排行榜 / 总排行榜

grf1973

2014-4-11 15:00

电脑累不死的，让它慢慢撞运气好了。。。。。

跳转到最佳答案楼层

grf1973

1. Sub 生成随机数()
   
2.     k1 = [b1]: k2 = [b2]: n = [b3]: m = [b4]
   
3.     Randomize
   
4. aa: ReDim brr(1 To n, 1 To 1)
   
5.     s = 0: k = 0
   
6.     For i = 1 To n
   
7.         brr(i, 1) = Int((k2 - k1 + 1) * Rnd + k1)   '生成k1和k2之间的随机数
   
8.         s = s + brr(i, 1)
   
9.     Next
   
10.     av = s / n         '平均数
    
11.     For i = 1 To n
    
12.         If brr(i, 1) < av Then k = k + 1
    
13.         If k > m Then GoTo aa
    
14.     Next
    
15.     If k < m Then GoTo aa
    
16.     c = [iv1].End(xlToLeft).Column + 1
    
17.     Cells(1, c).Resize(n, 1) = brr
    
18.     For i = 1 To n
    
19.         If brr(i, 1) < av Then Cells(i, c).Interior.Color = vbRed
    
20.     Next
    
21. End Sub
    

复制代码

grf1973

表1的按钮随便按，按一次多一列。

pengyx

grf1973 发表于 2014-4-11 14:11
表1的按钮随便按，按一次多一列。

灰常感谢你
if k>m then goto aa
next
if k<m then goto aa
感觉是在撞运气。有没有更好的办法

grf1973

电脑累不死的，让它慢慢撞运气好了。。。。。