Tulong sa LibreOffice 24.8
Tinatapos ang isang pamamaraan o pagharang.
End, End Enum, End Function, End If, End Property, End Select, End Sub, End With
Gamitin ang End statement gaya ng sumusunod:
Katapusan: Hindi kinakailangan, ngunit maaaring ilagay saanman sa loob ng isang pamamaraan upang tapusin ang pagpapatupad ng programa.
End Enum: Nagtatapos sa isang Enum VBA statement
End Function: Nagtatapos a Function pahayag.
Wakas Kung: Minarkahan ang katapusan ng a Kung...Tapos...Iba harangan.
Pag-aari ng Katapusan: Minarkahan ang pagtatapos ng a Ari-arian pahayag.
End Select: Minarkahan ang katapusan ng a Piliin ang Case harangan.
End Sub: Nagtatapos a Sub pahayag.
Tapusin Sa: Nagtatapos sa isang pahayag na May
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
I-print ang "Numero mula 1 hanggang 5"
Case 6, 7, 8
I-print ang "Numero mula 6 hanggang 8"
Case Is > 8 And iVar < 11
I-print ang "Higit sa 8"
Case Else
I-print ang "Sa labas ng hanay 1 hanggang 10"
End Select
End Sub