Question

VB程序的检验

Private Sub Command2_Click()
Dim W1!, α!, β!, γ!, C!, D!, PI!, a!, b!, K1!, ψ!, Q!, t!, W2!, W3!, K2!, L1!, L2!, M1!, M2!, ε!
PI = 3.14
t = Val(Text2.Text)
W1 = 26 * PI / 3
Q = 29 * PI / 36 - Val(Text1.Text) * PI / 180
α = Q - W1 * t
a = 38 - 10 * Cos(α)
b = 10 * Sin(α)
D = b / a
C = (a * a + b * b - 1633) / (48 * a)
K1 = (C±Sqr(1 - C * C + D * D) * D) / (1 + D * D)
K2 = Sqr(1 - K1 * K1)
L1 = Cos(α)
L2 = Sin(α)
M1 = (24 * K1 + 38 - 10 * L1) / 47
β = Atn(-M1 / Sqr(-M1 * M1 + 1)) + 2 * Atn(1)
ψ = 125 - β * 180 / PI
Text6.Text = ψ
M2 = Sqr(1 - M1 * M1)
W3 = (10 * (L2 * M1 - L1 * M2) * W1) / (24 * (K2 * M1 - K1 * M2))
W2 = -(10 * (L2 * K1 - K2 * L1) * W1) / (47 * (M2 * K1 - M1 * K2))
Text7.Text = W2
ε = (24 * W3 * W3 - 10 * W1 * W1 * (L1 * K1 - K2 * L2) - 47 * W2 * W2 * (M1 * K1 - M2 * K2)) / (47 * (M2 * K1 - K2 * M1))
Text8.Text = ε
End Sub
这个程序中间特别的2行有什么问题吗？怎么老是显示“实时错误‘5’：无效的过程调试和参数”，高手请教一下啊。。。。。。。。。。。。
很急切啊、、、、、、、、、、、、、、、、、、
K1 = (C±Sqr(1 - C * C + D * D) * D) / (1 + D * D)
这个错误已经改正啦

Answer 1

Dim W1!, α!, β!, γ!, C!, D!, PI!, a!, b!, K1!, ψ!, Q!, t!, W2!, W3!, K2!, L1!, L2!, M1!, M2!, ε!
应改成Dim W1!, α!, β!, γ!, C!, D!, PI!, a!, b!, K1!, ψ!, Q!, t!, W2!, W3!, K2!, L1!, L2!, M1!, M2!, ε!， as integer

Answer 2

K1 = (C±Sqr(1 - C * C + D * D) * D) / (1 + D * D)
没这个运算符"±"