VB6.0无效限定符,求教各位大神PrivateSubCommand1Click()DimXAsDouble,YAsDouble,ZAsDouble,BAsDouble,LAsDouble,HAsDouble,fAsDouble,aAsDouble,b1AsDouble,NAsDouble,piAsDoublepi=3.1415926a=6378137X=X.Text

Question

VB6.0 无效限定符,求教各位大神
Private Sub Command1_Click()
Dim X As Double, Y As Double, Z As Double, B As Double, L As Double, H As Double, f As Double, a As Double, b1 As Double, N As Double, pi As Double
pi = 3.1415926
a = 6378137
X = X.Text
Y = Y.Text
Z = Z.Text
f = (a - b1) / a
e = Sqr((a * a - b1 * b1) / (a * a))
N = a / Sqr(1 - e * e * (Sin(B)) * (Sin(B)))
L = Atn((Y / X) / 180 * pi)
B = Atn((Z * (N + H) / (Sqr(X * X + Y * Y) * (N * (1 - e * e) + H))) / 180 * pi)
H = Z / Sin(B) - N * (1 - e * e)
L.Text = L
B.Text = B
H.Text = H
End Sub
运行时说X 是无效限定符,怎么解决?

Answer 1

不光X是无效限定符,Y,Z,B,L,H同样都是
在这里,X,Y,Z,B,L,H都被重复定义了
首先是textbox,后面又被定义成Double,当然会出错