End Statement

Kết thúc một thủ tục hay khối.

Cú pháp:

End, End Function, End If, End Select, End Sub

Tham số :

Hãy sử dụng câu lệnh End như theo đây:

Câu lệnh

End: không cần thiết, nhưng vẫn còn có thể được nhập vào bất cứ nơi nào bên trong một thủ tục để kết thúc thực hiện chương trình.

End Function: Kết thúc một câu lệnh Function.

End If: Đánh dấu kết thúc của một khối If...Then...Else.

End Select: Đánh dấu kết thúc của một khối Select Case.

End Sub: Kết thúc một câu lệnh Sub.

Thí dụ :

Sub ExampleRandomSelect

Dim iVar As Integer

    iVar = Int((15 * Rnd) -2)

    Select Case iVar

        Case 1 To 5

            Print "Đánh số từ 1 đến 5"

        Case 6, 7, 8

            Print "Đánh số từ 6 đến 8"

        Case Is > 8 And iVar < 11

            Print "Lớn hơn 8"

        Case Else

            Print "Phạm vi bên ngoài 1 đến 10"

    End Select

End Sub