VBA 生成平均值为 0.13916 的四个随机数

以下是一个可以生成四个随机数的 VBA 代码，平均值为 0.13916：

Sub RandomNumbers()

Dim num1 As Double Dim num2 As Double Dim num3 As Double Dim num4 As Double

'生成四个随机数 num1 = Rnd() num2 = Rnd() num3 = Rnd() num4 = Rnd()

'计算四个数的平均值 Dim average As Double average = (num1 + num2 + num3 + num4) / 4

'如果平均值不是 0.13916，则重新生成四个随机数并重新计算平均值，直到平均值为 0.13916 Do While average <> 0.13916 num1 = Rnd() num2 = Rnd() num3 = Rnd() num4 = Rnd() average = (num1 + num2 + num3 + num4) / 4 Loop

'输出四个随机数和平均值 MsgBox '随机数1：' & num1 & vbCrLf & '随机数2：' & num2 & vbCrLf & '随机数3：' & num3 & vbCrLf & '随机数4：' & num4 & vbCrLf & '平均值：' & average

End Sub