求人帮忙写一个小程序，送分
随机数生成器。
生成四个数据。初始，终止，标准，误差
初始范围为 0.001---9.999
终止范围为 0.001---9.999
终止必须大于初始
标准范围为 1.000---2.000
误差范围为 -3.900----3.900
要求符合公式
[(终止-初始)-标准]/标准 * 100=误差
[解决办法]
Sub Main()
Dim 初始 As Double, 终止 As Double, 标准 As Double, 误差 As Double
Randomize
Do
初始 = Rnd() * (9.999 - 0.001) + 0.001
终止 = Rnd() * (9.999 - 初始) + 初始
标准 = Rnd() + 1
误差 = ((终止 - 初始) - 标准) / 标准 * 100
Loop While 误差 < -3.9 Or 误差 > 3.9
MsgBox "初始=" & 初始 & " 终止=" & 终止 & " 标准=" & 标准 & " 误差=" & 误差
End Sub
