If...GoTo...Else ステートメントを使用して無条件に移す

分岐ステートメント If...GoTo...Else は、If...Then GoTo label Else で記述されるステートメントを簡略化する便利な方法です。このステートメントは、If...Then...Else ステートメントの Then 節で無条件に制御を移すだけの場合に使用できます。Then 節を GoTo 節に置き換えれば、If...Then...Else の説明がこのステートメントにも適用されます。このステートメントは 1 行に記述する必要があります。

例えば次の例は、前の例のサブルーチンの実行可能部分を If...GoTo を使用して書き換えたものです (この場合、Else 節はありません)。

   approx! = .25
   iters% = 0
ReIter:
   iters% = iters% + 1
   tempProx! = approx!
   approx! = .25 ^ tempProx!
   If Abs(tempProx! - approx!) >= .0001 And iters% < 40 _
      GoTo ReIter
   Print approx!, Abs(approx! - tempProx!), "Iterations:" iters%