IBM Lotus Symphony
|
Kończy procedurę lub blok.
End, End Function, End If, End Select, End Sub
Instrukcji End należy używać w następujący sposób:
End: Nie jest wymagana, ale można ją wprowadzić w dowolnym miejscu procedury, aby zakończyć wykonywanie programu.
End Function: Kończy instrukcję Function.
End If: Określa koniec bloku If...Then...Else.
End Select: Określa koniec bloku Select Case.
End Sub: Kończy instrukcję Sub.
Sub Przyklad_LiczbaLosowa
Dim iZm As Integer
iZm = Int((15 * Rnd) -2)
Select Case iZm
Case 1 To 5
Print "Liczba od 1 do 5"
Case 6, 7, 8
Print "Liczba od 6 do 8"
Case Is > 8 And iZm < 11
Print "Liczba większa niż 8"
Case Else
Print "Liczba spoza zakresu od 1 do 10"
End Select
end sub