本人是菜鸟
向请教下面的代码有什么问题
Private Sub CommandButton1_Click()
a = Val(text1.Text)
b = Val(text2.Text)
c = Val(text3.Text)
d = Val(text4.Text)
e = Val(text5.Text)
f = Val(text6.Text)
g = b - e
h = c - f

text7.Text = e + Sqr((g ^ 2) + (h ^ 2)) * Cos(d - a) * pi() / 180 + Atn(-(g ^ 2 / Sqr(g ^ 2 + h ^ 2))) / Sqr((-(g ^ 2 / Sqr(g ^ 2 + h ^ 2))) / (-(g ^ 2 / Sqr(g ^ 2 + h ^ 2))) + 1) + 2 * Atn(1)
End Sub