excel怎么用固定平均值生成随机数

Function GetRndItem(aa As Integer, bb As Integer, num As Integer) As StringDim aFor ii = aa To bb tt = tt & | & iiNexta = Split(Mid(tt, 2), |)Dim i As IntegerRandomizeDim Index As IntegerDim Text As StringDim arU As IntegerarU = UBound(a)If num arU + 1 Then num = arU + 1For i = 1 To numIndex = Int(Rnd * arU)Text = Text & , & a(Index)a(Index) = a(arU)arU = arU - 1NextGetRndItem = Mid(Text, 2)End Function