12 lines
243 B
Text
12 lines
243 B
Text
' FB 1.05.0 Win64
|
|
|
|
Dim a(0 To 9) As String = {"Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"}
|
|
|
|
Randomize
|
|
Dim randInt As Integer
|
|
|
|
For i As Integer = 1 To 5
|
|
randInt = Int(Rnd * 10)
|
|
Print a(randInt)
|
|
Next
|
|
Sleep
|