<< 前へ        次へ >>

ID : 130

GoSub

機能

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

構文

GoSub ラベル名

指定項目

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

解説

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

ジャンプ先はプロシージャ内のみです。

GoToとは異なり、Returnできます。

関連項目

GoTo

注意事項

-

用例

'!TITLE "ラベルにジャンプ後、ジャンプ元へ戻る"
' ラベルジャンプ後、aaaに10加算しジャンプ元へ戻った後、aaaに20加算
Sub Sample_GoSub

  Dim aaa As Integer

  aaa = 5

  ' LABEL1へジャンプ
  GoSub LABEL1

  aaa = aaa + 20

  ' メッセージ出力ウィンドウに"35"を表示
  PrintDbg aaa

  Exit Sub

LABEL1:

  aaa = aaa + 10

  ' メッセージ出力ウィンドウに"15"を表示 
  PrintDbg aaa

  ' ジャンプ元へ戻る
  Return

End Sub

ID : 130

<< 前へ        次へ >>