|
- Sub 生成随机数()
- k1 = [b1]: k2 = [b2]: n = [b3]: m = [b4]
- Randomize
- aa: ReDim brr(1 To n, 1 To 1)
- s = 0: k = 0
- For i = 1 To n
- brr(i, 1) = Int((k2 - k1 + 1) * Rnd + k1) '生成k1和k2之间的随机数
- s = s + brr(i, 1)
- Next
- av = s / n '平均数
- For i = 1 To n
- If brr(i, 1) < av Then k = k + 1
- If k > m Then GoTo aa
- Next
- If k < m Then GoTo aa
- c = [iv1].End(xlToLeft).Column + 1
- Cells(1, c).Resize(n, 1) = brr
- For i = 1 To n
- If brr(i, 1) < av Then Cells(i, c).Interior.Color = vbRed
- Next
- End Sub
复制代码 |
|