数据溢出,怎么办????帮帮忙啊
Private Sub Command3_Click()
Dim WI, QI, CPi, Bth, CPj, CJ, RK, CPk, Shk, F5, PI As Long
PI = 3.14159265358979
Text1.Text = WI
Text2.Text = QI
Text3.Text = CPi
Text4.Text = Bth
Text5.Text = CPj
Text6.Text = CJ
Text7.Text = RK
Text8.Text = CPk
Text9.Text = Shk
Dim a, b, c, d, e, f
a = (WI + QI) * Cos(CPi * PI / 180)
b = (RK + Shk) * Sin(CPk * PI / 180) * Tan(CPj * PI / 180 / 180)
c = CJ * (Bth / Cos(CPi * PI / 180))
d = CLng((RK / Shk) * Cos(CPk * PI / 180))
e = (WI + QI) * Sin(CPi * PI / 180)
F5 = (a + b + c + d) / e
Text10.Text = F5
Print Text10.Text
End Sub
d =(RK / Shk) * Cos(CPk * PI / 180)
这句会溢出,请问怎么解决,是算一道力学题