已知平均值是013916vba生成随机生成四个数

Sub RandomNumbers() Dim i As Integer Dim sum As Double Dim avg As Double Dim rndNum As Double

Randomize '初始化随机数生成器

For i = 1 To 4 '生成四个随机数
    rndNum = Rnd '生成0到1之间的随机数
    sum = sum + rndNum '累加随机数
    Debug.Print "随机数" & i & "：" & rndNum '输出随机数
Next i

avg = sum / 4 '计算平均值
Debug.Print "平均值：" & avg '输出平均值

End Sub

'输出结果示例： '随机数1：0.8213935 '随机数2：0.4691291 '随机数3：0.1032974 '随机数4：0.4463215 '平均值：0.4605356