> 0<Θ1<90をみたさなくなったときにプログラムを終了
If theta1 <= 0 Or theta1 >= 90 Then End
――とか。これは、
If Not( (0<theta1) And (theta1<90) ) Then End
――の変形です。
ちなみに、θ = arctan( L / B ) [arctanは逆正接関数]で求めようとしてるなら、
> B L
> 10 20
> 10 25
――のように、BもLも正の値である限り、角度θが0°や90°に達する事は無いので、終了条件としては不適切かも。
お礼
アークタンジェントを使って求めようとしていました。 他の条件に代えて挑戦してみます。 ありがとうございました。