IBM Lotus Symphony
|
Ukončí procedúru alebo blok.
End, End Function, End If, End Select, End Sub
Použite príkaz End nasledujúcim spôsobom:
Parameter End: nevyžaduje sa, ale je ho možné zadať kdekoľvek v rámci procedúry na ukončenie vykonávania programu.
Parameter End Function: ukončuje príkaz Function.
Parameter End If: označuje koniec bloku If...Then...Else.
Parameter End Select: označuje koniec bloku Select Case.
Parameter End Sub: ukončuje príkaz Sub.
Sub Príklad_Random Select
Dim iVar ako typ Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Čísla od 1 do 5"
Case 6, 7, 8
Print "Číslo od 6 do 8"
Case Is > 8 And iVar < 11
Print "Väčší ako 8"
Case Else
Print "Mimo rozsahu 1 až 10"
End Select
end sub