ຄຳສັ່ງ Exit

ອອກຈາກ Do...Loop, For...Next, ຟັງຊັນ, ຄຸນສົມບັດ ຫຼື ສ່ວນຍ່ອຍ.

Exit Do, Exit For, Exit Function, Exit Property, Exit Sub

Exit Do

ໃຊ້ໄດ້ສະເພາະພາຍໃນຄຳສັ່ງ Do...Loop ເພື່ອອອກຈາກລູບ. ການເຮັດວຽກຂອງໂປຣແກຣມຈະດຳເນີນຕໍ່ດ້ວຍຄຳສັ່ງທີ່ຢູ່ຖັດຈາກຄຳສັ່ງ Loop. ຖ້າມີຄຳສັ່ງ Do...Loop ຊ້ອນກັນ, ການຄວບຄຸມຈະຖືກສົ່ງໄປຫາລູບໃນລະດັບທີ່ສູງກວ່າຖັດໄປ.

Exit For

ໃຊ້ໄດ້ສະເພາະພາຍໃນລູບ For...Next ເພື່ອອອກຈາກລູບ. ການເຮັດວຽກຂອງໂປຣແກຣມຈະດຳເນີນຕໍ່ດ້ວຍຄຳສັ່ງທຳອິດທີ່ຢູ່ຖັດຈາກຄຳສັ່ງ Next. ໃນຄຳສັ່ງທີ່ຊ້ອນກັນ, ການຄວບຄຸມຈະຖືກສົ່ງໄປຫາລູບໃນລະດັບທີ່ສູງກວ່າຖັດໄປ.

Exit Function

ອອກຈາກຂັ້ນຕອນ Function ທັນທີ. ການເຮັດວຽກຂອງໂປຣແກຣມຈະດຳເນີນຕໍ່ດ້ວຍຄຳສັ່ງທີ່ຢູ່ຖັດຈາກການເອີ້ນໃຊ້ Function.

Exit Property

ອອກຈາກຂັ້ນຕອນ Property ທັນທີ. ການເຮັດວຽກຂອງໂປຣແກຣມຈະດຳເນີນຕໍ່ດ້ວຍຄຳສັ່ງທີ່ຢູ່ຖັດຈາກການເອີ້ນໃຊ້ Property.

Exit Sub

ອອກຈາກສ່ວນຍ່ອຍທັນທີ. ການເຮັດວຽກຂອງໂປຣແກຣມຈະດຳເນີນຕໍ່ດ້ວຍຄຳສັ່ງທີ່ຢູ່ຖັດຈາກການເອີ້ນໃຊ້ Sub.

ຄຳສັ່ງ Exit ບໍ່ໄດ້ກຳນົດຈຸດສິ້ນສຸດຂອງໂຄງສ້າງ ແລະ ບໍ່ຄວນສັບສົນກັບຄຳສັ່ງ End.

Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    For siStep = 0 To 10 ' ປ້ອນຂໍ້ມູນທົດສອບລົງໃນອາເຣ
        sListArray(siStep) = chr(siStep + 65)
        MsgBox sListArray(siStep)
    Next siStep
    sReturn = LinSearch(sListArray(), "B")
    Print sReturn
End Sub
 
Function LinSearch( sList(), sItem As String ) As Integer
Dim iCount As Integer
' LinSearch ຄົ້ນຫາ TextArray:sList() ສຳລັບ TextEntry:
' ສົ່ງຄືນດັດຊະນີຂອງລາຍການ ຫຼື 0 (Null)
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            Exit For ' ພົບ sItem ແລ້ວ
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function