You'd store your text in string variables like this, I'm using an array for simplicity:
dim message$(3)
message$(0)="cat"
message$(1)="dog"
message$(2)="ball"
do
rem write the string to the screen, in a random place (change that if it isn't what you want)
text int(rnd(640)),int(rnd(480)),message$(message_showing)
rem choose a new word, make sure it isn't the same as the last one
repeat
new_message=int(rnd(2))
until new_message <> message_showing
message_showing = new_message
rem sync, wait for a second, then clear
sync
wait 1000
cls
loop
That should do what you want, although you haven't made it particularly clear.
Once I was but the learner,
now, I am the Master.