Nothing

你按F8逐句的调试，你会发现你的数组根本没有付值。
下面的代码根本没有执行，执行的话也会下标越界的，因为你没有定义数组。
Q3 = 180 + 2 * Atn((1 + e) ^ 2 / ((1 - e) ^ 2) * Tan(Q / 2))
G(Num) = -A * Cos(Q) + L * Cos(Q3 - Q0 - Q)
H(Num) = A * Sin(Q) + L * Sin(Q3 - Q0 - Q)
X(Num) = G(Num) * Cos(Q1) - H(Num) * Sin(Q1)
Y(Num) = G(Num) * Sin(Q1) + H(Num) * Cos(Q1)
在使用数组的时候，注意要指定数组的长度，可以使用Redim语句.如 Redim G(10)