VB高手来帮我做个程序

来源：百度知道 编辑：UC知道 时间：2024/06/14 01:53:38
我想做个VB程序，是这样的可以将10000（随即数）分成6.14.24（随机数）若干份，所得到的数字和10000（这个随机数的）平均数相差不大，可以相差在50—100直接，精确到小数点后2位，到三位
10000是举例的随机 ，这个数字我可以分成10份，也能使20份，就是随意的我想几份就几份

'不知道我猜的对不对，试试这段代码。
Private Sub Command1_Click()
Const T = 50
Dim i As Long, j As Long, k As Long
Dim A As Double, B As Double, C() As Double

A = Val(CStr(Format(Val(InputBox("请输入随机数", "")), "0.000")))
k = Int(Val(InputBox("请输入分份数", "")))
ReDim C(1 To k)
For i = 1 To k
Randomize
C(i) = Rnd * T * 2 + A / k - T
B = B + C(i)
Next

Do
DoEvents
B = 0
For i = 1 To k
B = B + C(i)
Next
If B > A + T Then
j = 1
For i = 2 To k
If C(i) > C(j) Then j = i
Next
Randomize
C(j) = C(j) - Rnd * T
ElseIf B < A - T Then
j = 1
For i = 2 To k
If C(i) &