'Listing 22.5  22LIST05.TXT -- Rozbudowana instrukcja If testujca warto zmiennej1


Private Sub Command1_Click()
  Number = InputBox("Wprowad liczb z zakresu 1 .. 5", "Przykadowa instrukcja If")

  If Number = "" Then
    MsgBox "Nie wprowadzono adnej liczby."
  ElseIf (Number >= 1 And Number < 5) Then
    MsgBox "Liczba z przedziau <1;5)"
  ElseIf (Number = 5) Then
    MsgBox "Wprowadzono liczb 5"
  ElseIf (Number > 5) And (Number <= 10) Then
    MsgBox "Liczba z przedziau <6;10>"
  Else
    MsgBox "Liczba spoza przedziau <1;10>"
  End If
End Sub
