'Listing 24.3 24LIST03.TXT  --- Wykorzystanie instrukcji ptli do organizacji danych wejciowych.

Private Sub Command1_Click()
  For Counter = 1 to 5
    Number = InputBox("Wprowad liczb o wartoci pomidzy 1 a 10", _
                      "Wykorzystanie instrukcji For..Next")
    If  Number = "" Then
     Exit For
    End If

    If Number >= 1 And Number <= 10 Then
      Select Case Counter
        Case 1
          FirstNum = Number
        Case 2
          SecondNum = Number
        Case 3
          ThirdNum = Number
        Case 4
          FourthNum = Number
        Case 5
          FifthNum = Number
      End Select 
    End If 
  Next Counter

  If Number = "" Then
    MsgBox "Przerwano wprowadzanie"
  Else
    Form1.Print "Wprowadzono liczby:" 
    Form1.Print FirstNum
    Form1.Print SecondNum
    Form1.Print ThirdNum
    Form1.Print FourthNum
    Form1.Print FifthNum
  End If
End Sub
