VBA 生成随机数并控制平均值为 0.13916

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