18 lines
332 B
Text
18 lines
332 B
Text
Dim As Integer i, MiLista()
|
|
|
|
For i = 0 To Int(Rnd * 100)+25
|
|
Redim Preserve MiLista(i)
|
|
MiLista(i) = Rnd * 314
|
|
Next
|
|
|
|
'Tour from the beginning
|
|
For i = Lbound(MiLista) To Ubound(MiLista)
|
|
Print MiLista(i)
|
|
Next i
|
|
|
|
Print
|
|
'Travel from the end
|
|
For i = Ubound(MiLista) To Lbound(MiLista) Step -1
|
|
Print MiLista(i)
|
|
Next i
|
|
Sleep
|