求人帮忙写一个小程序，送分,该怎么解决

求人帮忙写一个小程序，送分
随机数生成器。

生成四个数据。初始，终止，标准，误差

初始范围为  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