goto 3.1415926535897932

高手：这表示什么意思？

没有标号
GoTo 472  472在哪？

对不起！我再发一次吧~！
448 I = 0
450 If I = 0 Then GoTo 472
452 X(I) = O
454 Y(I) = O
456 Z(I) = O
458 For J = 1 To M
460 A1 = -(1 - Exp(S(J))） * (1 - Exp(S(J))） * Exp((I - 1) * S(J)) / S(J) / S(J)
462 X(I) = X(I) - A9(J) * A1
464 Y(I) = Y(I) - B9(J) * A1
466 Z(I) = Z(I) - C9(J) * A1
468 Next J
470 GoTo 490
472 X(I) = K
474 Y(I) = K
476 Z(I) = K
478 For J = 1 To M
480 A1 = (1 - Exp(S(J)) ）/ S(J) / S(J))
482 X(I) = X(I) - A9(J) * A1
484 Y(I) = X(I) - B9(J) * A1
486 Z(I) = X(I) - C9(J) * A1
488 Next J
490 If I < 0.0015 Then Y(I) = 0
492 If I < 2 Then GoTo 502
494 If Y(I - 1) = 0 Then GoTo 502
496 C2 = Y(I) / Y(I - 1)
498 C5 = Abs(C2 - Y(I - 1) / Y(I - 2))
500 If (C5 - 0.001) <= 0 Then GoTo 508
502 Print I, X(I), Y(I), Z(I)
504 I = I + 1
506 GoTo 452
508 Print "C="; C2
510 End

帮忙看看吧！
前面还有很大的一段呢，我担心太长了看起来费劲，所以就把这一段出现问题的贴出来，希望各位帮帮忙了！问题提示是：452 X(I)=0 subscript out of range
还有：498 C5 = Abs(C2 - Y(I - 1) / Y(I - 2)) division by zero

subscript out of range
    数组越界，（这里看不到你的数组是怎样定义的）
division by zero
    除数为0

这种程序已经给封进史册的了，上个世纪的人才能写出这些程序来
你告诉大家你的目的，让高手们帮你写一个新的得了

谢谢了！
我是学暖通空调方面的，我想利用一个程序来计算反应系数，因为我计算负荷的时候需要用的，但是我不太懂这方面，这个程序是我看了一本书上的，但是我试了一下，好像不能用呢！所以我不知道为什么了呢？所以想向你们请教一下呢！

我还想问一下，这些旧程序还能用马？

还能用.但改起来很麻烦.

我只能改了，不可能再编一个呢，因为这个程序挺长的，而且我还没有用过qbasic呢，希望专家多多帮忙了！
我用那个qb45来运行这个旧的程序是否可以？会不会有些命令已经更改一些旧的命令就不能用了呢！