<< 前へ        次へ >>

ID : 131

GoTo

機能

ラベルにジャンプします。

構文

GoTo ラベル名

指定項目

ラベル名
ラベル名を指定します。

解説

ラベル名で指定したラベルにジャンプします。

関連項目

On Error、 ラベル

注意事項

ジャンプ先はプロシージャの範囲内のみで、他のプロシージャにはジャンプできません。

用例

'!TITLE "プログラムの分岐を無条件で実行"
' aaaとbbbの大小判定を実施し、各ラベルで結果を表示
Sub Sample_GoTo

  Dim aaa As Integer
  Dim bbb As Integer

  aaa = 1
  bbb = 10

  ' aaaとbbbの大小判定
  If aaa > bbb Then

    ' aaa > bbb の場合、LABEL1へジャンプ
    Goto LABEL1

  ElseIf aaa < bbb Then

    ' aaa < bbb の場合、LABEL2へジャンプ
    Goto LABEL2

  Else

    ' aaa = bbb の場合、LABEL3へジャンプ
    Goto LABEL3

  End If

  Exit Sub

LABEL1:

  ' メッセージ出力ウィンドウに判定結果( aaa > bbb )の表示
  PrintDbg ( aaa & " > " & bbb )

  Exit Sub

LABEL2:

  ' メッセージ出力ウィンドウに判定結果( aaa < bbb )の表示
  PrintDbg ( aaa & " < " & bbb )

  Exit Sub

LABEL3:

  ' メッセージ出力ウィンドウに判定結果( aaa = bbb )の表示
  PrintDbg ( aaa & " = " & bbb )

  Exit Sub

End Sub

ID : 131

<< 前へ        次へ >>