用cls和tab函数吧……
然后用循环

a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"+space$(54)
do until inkey$=chr$(27)
  locate 12,1
  print a$;
  a$=right$(a$,79)+left$(a$,1)
  t=timer
  do until timer-t>0.2
  loop
loop

谢谢你,为了感谢你,给你加十分.