前面我有提到过用1，2，3，4，5，6，7，8，9，10，11，12数字求生肖，现在反过来，我们已知2010年是虎年，2009年是牛年，那么怎么来一段代码能自动算出2011年是兔年呢

补充一下子要求，要以下结果：
当 y=2009 &2009年是牛年
则 c='牛虎兔龙蛇马羊猴鸡狗猪鼠'
当 y=2010 &2010年是虎年
则 c='虎兔龙蛇马羊猴鸡狗猪鼠牛'
当 y=2011 &2011年是兔年
则 c='兔龙蛇马羊猴鸡狗猪鼠牛虎'
请高手搞一搞

龙王出考题了！试着答题：
nYEAR=2009

cTXT="鼠牛虎兔龙蛇马羊猴鸡狗猪"
nMOD=mod(nYEAR,12)-3
?right(cTXT,(13-nMOD)*2)+left(cTXT,nMOD*2-2)

别说2009年，任何年份都可以求出来（不过以公历年份来求是不准确的，因为属相是按农历年份算的）
Do while .t.
Accpt nYEAR '请输入所求年份，输入0则退出'
***$$ 判断输入数据有效性部分略
  IF nYEAR=0
    Exit
  ELSE
     cTXT="鼠牛虎兔龙蛇马羊猴鸡狗猪"
     nMOD=mod(nYEAR,12)-3
     WAITE Windows STR(nYEAR)-'年是'-right(cTXT,(13-nMOD)*2)+left(cTXT,nMOD*2-2)-'年'
  ENDIF
  Clean
Endo
RETURN

既然您补充了一下要求，我也补充一下答案：
采用一个12娄的循环，从当前属相年开始在cTXT里取字符，当取字符的位置大于cTXT的长度时就从第一位取，就可以达到你补充的要求了。这里要用到AT函数，您试试，相信您一定行。

nYear=2009
?GetGanzhi(nYear)
return

Function GetGanzhi
LParameters nYear
If type('nYear')#'N' or int(nYear)#nYear
  nYear=Year(Date())
EndIf
c1='牛虎兔龙蛇马羊猴鸡狗猪鼠'
n1=2009
return substrc(c1+c1,mod(nYear-n1,12)+1,12)

nYear=2009
?GetGanzhi(nYear)
return

Function GetGanzhi
LParameters nYear
If type('nYear')#'N' or int(nYear)#nYear
  nYear=Year(Date())
EndIf
Return Substrc('牛虎兔龙蛇马羊猴鸡狗猪鼠牛虎兔龙蛇马羊猴鸡狗猪鼠',Mod(nYear-2009,12)+1,12)

任意年份的生肖序 代码如下:

? left(subs('猴鸡狗猪鼠牛虎兔龙蛇马羊',(你的年份%12+1)*2-1)+'猴鸡狗猪鼠牛虎兔龙蛇马羊',24)


例:

? left(subs('猴鸡狗猪鼠牛虎兔龙蛇马羊',(2009%12+1)*2-1)+'猴鸡狗猪鼠牛虎兔龙蛇马羊',24)  && 2009年
? left(subs('猴鸡狗猪鼠牛虎兔龙蛇马羊',(2011%12+1)*2-1)+'猴鸡狗猪鼠牛虎兔龙蛇马羊',24)  && 2011年
? left(subs('猴鸡狗猪鼠牛虎兔龙蛇马羊',(1949%12+1)*2-1)+'猴鸡狗猪鼠牛虎兔龙蛇马羊',24)  && 1949年

Substrc('牛虎兔龙蛇马羊猴鸡狗猪鼠牛虎兔龙蛇马羊猴鸡狗猪鼠',Mod(nYear-2009,12)+1,12) ！！！！
免去了循环结构！大老虎，真高

也可以

? subs('猴鸡狗猪鼠牛虎兔龙蛇马羊猴鸡狗猪鼠牛虎兔龙蛇马羊',(你的年份%12+1)*2-1),24)