千穿万穿,马屁不穿,楼主把我捧得很开心,
以后有什么问题,尽管提出来,我帮你解决.(呵呵,这口也开得太大了)

C++也很精彩,但也很无奈.
概念这东西,要能理解,要能有选择的运用.还得看看实际情况,多方面对比.

cls
input n
dim b$(8)
for i=1 to 8:read b$(i):next i
data A,B,C,D,E,F,G,H
k=-1:m=0
do
  if k=-1 then
   for i=1 to 8
      m=m+1
      if m=n then print b$(i)
    next i
    for i=7 to 1 step -1
      m=m+1
      if m=n then print b$(i):exit do
    next i:K=0
  else
    for i=2 to 8
      m=m+1
      if m=n then print b$(i):exit do
    next i
    for i=7 to 1 step -1
      m=m+1
      if m=n then print b$(i):exit do
    next i
   end if
loop
end