Question

怎样修改下面的vb程序,使之正确运行

Private Sub Command1_Click()
Dim A As Variant
Dim B, C, D, E, F
Dim Φ1, Φ2, Φ3
Const PI = 3.1415926536, L1 = 1161, L2 = 1017, L3 = 1161, L4 = 1500

Picture1.Cls
Picture1.Scale (-10, 180)-(180, -180)
Picture1.Line (0, 180)-(0, -180)
Picture1.Line (360, 0)-(0, 0)
For i = 0 To 360 Step 0.001
x = i
Φ1 = i * PI / 180
A = 2 * L1 * L3 * Sin(Φ1 * PI / 180)
B = 2 * L3 * (L1 * Cos(Φ1 * PI / 180) - L4)
C = L2 ^ 2 - L1 ^ 2 - L3 ^ 2 - L4 ^ 2 + 2 * L1 * L4 * Cos(Φ1 * PI / 180)
D = 2 * L1 * L2 * Sin(Φ1 * PI / 180)
E = 2 * L2 * (L1 * Cos(Φ1 * PI / 180) - L4)
F = L1 ^ 2 + L2 ^ 2 - L3 ^ 2 + L4 ^ 2 - 2 * L1 * L4 * Cos(Φ1 * PI / 180)
Φ2 = 2 * Atn((A - Sqr(A ^ 2 + B ^ 2 - C ^ 2)) / (B - C))
Φ3 = 2 * Atn((D - Sqr(D ^ 2 + E ^ 2 - F ^ 2)) / (E - F))
Y1 = Φ2 * 180 / PI
Y2 = Φ3 * 180 / PI
Picture1.PSet (x, Y1), vbRed
Picture1.PSet (x, Y2), vbGreen

Next i

End Sub
在线等,急需
A = 2 * L1 * L3 * Sin(Φ1 * PI / 180)
提示这里溢出 请问哪里出了问题呢?

Answer 1

程序没问题，就是数值运算溢出来
可以把数字按比例缩小，运算完毕再乘以缩小比例还原