式にもとづいて、ラベルにジャンプします。
構文:
On expression Goto label1
[, ...]
記述:
式(expression)の値によって、異なったラベルに分岐します。
式の値が 1 の場合は最初のラベル、値が2の場合は 2番目に、など、と分岐します。
式(expression) の値が、ゼロ(0) の場合や、リストの件数より大きい場合は、実行は、On...Goto の直後の命令文に、続きます。
例:
Dim choice As Integer
Input "整数を入力して下さい:
", choice
On choice Goto labela, labelb, labelc
labela:
Print "選択 a"
Sleep
End
labelb:
Print "選択 b"
Sleep
End
labelc:
Print "選択 c"
Sleep
End
QBからの違い:
-
FreeBASICは、式(expression) の値が負数でも、255以上でも、実行時エラーを生成しません。
参照: