dim a$ = {"Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"} for i = 1 to 5 randInt = int(rand * 10) print a$[randInt] next i