急啊！这个随机函数该如何编写？帮忙看看
各位大侠，我现在想编个小程序，给定大小不同的两个数a与b（假设a<b），再在其中间随便给个值K，怎样运用随机函数生成一列随机数，使得这一列数的平均值等于K。
这该怎么编啊！初学编程不知怎么下手，还望哪位高手指点一下啊！谢谢了！
期盼中.........
2005-10-27 15:49
2005-10-27 19:26
It's very easy: Private Sub Form_Click()
Dim a As Integer, b As Integer, K As Integer, nums(4) As Integer
Dim i As Integer
Randomize '初始化随机数生成器
a = 5
b = 100
K = Int(Rnd(b - a) * (b - a))
If K < 5 Then K = K + Int(Rnd(5) * 5)
Do While (nums(0) + nums(1) + nums(2) + nums(3) + nums(4)) / 5 <> K
DoEvents
For i = 0 To 4
nums(i) = Int(Rnd(100) * 100) '生成一系列随机数
Next
Loop
Print nums(0); nums(1); nums(2); nums(3); nums(4)
End Sub
用了非常笨的方法，即先生成一系列随机数，直到该数列的平均数为 K 才结束循环。这样会导致时间复杂度增加。
[此贴子已经被作者于2005-10-27 20:22:34编辑过]
2005-10-27 20:17
