'Listing 23.1  23LIST01.TXT --- Instrukcja Do..Loop uyta do weryfikacji wprowadzanej liczby


Private Sub Command1_Click()
Do
  Number = InputBox("Wprowad liczb z zakresu 1..10", _
  "Instrukcja Do..Loop")
Loop Until Val(Number) >= 1 And Val(Number) <= 10
Form1.Print "Wprowadzono liczb " & Number
End Sub

