
'Listing 22.6 -- Program z listingu 22.5 w wersji z instrukcj wyboru.


Private Sub Command1_Click()
  Number = InputBox("Wprowad liczb z zakresu 1 .. 5", "Przykadowa instrukcja Select-Case")
  Select Case Number
  Case ""
    MsgBox "Nie wprowadzono adnej liczby."
  Case 1 To 5
    MsgBox "Liczba z przedziau <1;5)"
  Case 5
    MsgBox "Wprowadzono liczb 5"
  Case 6 To 10
    MsgBox "Liczba z przedziau <6;10>"
  Case Else
    MsgBox "Liczba spoza przedziau <1;10>"
  End Select
End Sub
