LOTUSSCRIPT 言語

GoTo ステートメントを使って制御を移す
分岐ステートメントの GoTo は、制御を無条件に移します。

構文は次のとおりです。

GoTo label

このステートメントが実行されると、ラベル label の付いたステートメントに制御が移ります。GoTo とそのジャンプ先は同一プロシージャ内になければなりません。制御のフローは実行時に決まります。

次の例は、数値が π (pi) にどれだけ近似しているかを調べるサブルーチン内で、Goto ステートメントを使って適切に制御を移します。ユーザーが π の値を推測して特定の桁数だけ入力し、スクリプトが値を調べて報告します。

Sub ApproxPi(partPi As Double)
Dim reportMsg As String
' See how good the approximation is,
' and assign a response message.
reportMsg$ = "Not close at all"
If Abs(PI - partPi#) < 1E-12 Then
reportMsg$ = "Very close"
GoTo MsgDone
End If
If Abs(PI - partPi#) < 1E-6 Then reportMsg$ = _
"Close but not very"
' Print the message and leave.
MsgDone:MessageBox(reportMsg$)
End Sub
' Ask the user to guess at PI; then call ApproxPi, and report.
Call ApproxPi(CDbl(InputBox$("A piece of PI, please:")))

この例で GoTo を使って制御を移す効果は、入力された値が ｢Close but not very｣であるかどうかを調べる If ステートメントをスキップすることにあります。｢Very close｣ であると分かれば、さらに調べる必要はありません。

次の例では、GoTo を使って、一連の計算 (.25 ^ .25、.25 ^ (.25 ^ .25)、.25 ^ (.25 ^ (.25 ^ .25))、以下同様) を 2 つの連続した式が互いに .0001 以内に入るか 40 個の式が計算されるまで繰り返します。

Sub PowerSeq
Dim approx As Single, tempProx As Single, iters As Integer
approx!= .25
iters% = 1
ReIter:
tempProx!= approx!
approx! = .25 ^ tempProx!
If Abs(tempProx!- approx!)>= .0001 And iters% < 40 Then
' Iterate again.
iters% = iters% + 1
GoTo ReIter
End If
Print approx!, Abs(approx!- tempProx!), "Iterations:"iters%
End Sub
Call PowerSeq()
' Output:
' .5000286 6.973743E-05 Iterations: 25

この例は、(.25 ^ .25、.25 ^ (.25 ^ .25)、.25 ^ (.25 ^ (.25 ^ .25))、以下同様) の代わりに、ゼロと 1 の間の任意の値 x について一連の値 (x ^ x、x ^ (x ^ x)、以下同様) の計算を汎用化できます。

関連項目