ເນື້ອໃນ

# ຄຳສັ່ງ 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

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!