请高手出来解答一下，学习学习！

CLS
INPUT N
FOR k = 1 TO N: INPUT a$: t$ = "": s$ = "": l = 0
  IF INSTR(a$, "a") = 0 THEN PRINT "no": GOTO 10
  FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) <> " " THEN
      s$ = s$ + MID$(a$, i, 1)
    ELSE
      IF s$ = "" THEN 1
      IF INSTR(s$, "a") = 0 THEN s$ = "": GOTO 1
      IF LEN(s$) > l THEN l = LEN(s$): t$ = s$
      s$ = ""
    END IF
1 NEXT i
  PRINT t$
10 NEXT k
END
楼主记得加分哦

寻找中国的最优秀的网商领袖精英  
当今世界正经历着全球经济一体化的大潮，中国本土企业也因此面临着前所未有的机遇与挑战。
在这场洗礼中，哪些互联网平台有能力成为世界级的电子商务平台？网商精英要怎样做，才能最终成长为世界级网商精英领袖？
淘宝商盟平台震撼登场，携手淘宝30万商家联盟购物商城。
平台刚刚启动，互联网的网商精英请咨询qq: 908889846 
占领市场第一先机，合力打造网商系统！
淘宝商盟官网   www.taobaosm.com
 http://blog.sina.com.cn/tbsm8
淘宝商盟奖励制度