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

以下是一个可以生成四个随机数的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 Su