您所在位置：主题：这些语句能精简下吗？
ckjing
[专家分：10] 发布于 2009-08-18 23:57:00
a1=mod(第1支,12)
a2=mod(第2支,12)
a3=mod(第3支,12)
IF a1=0
a1=a1+12
ELSE
a1=a1
ENDIF
IF a2=0
a2=a2+12
ELSE
a2=a2
ENDIF
IF a3=0
a3=a3+12
ELSE
a3=a3
ENDIF
REPLACE 第1生肖 with a1
REPLACE 第2生肖 WITH a2
REPLACE 第3生肖 with a3
a2=mod(第2支,12)
a3=mod(第3支,12)
IF a1=0
a1=a1+12
ELSE
a1=a1
ENDIF
IF a2=0
a2=a2+12
ELSE
a2=a2
ENDIF
IF a3=0
a3=a3+12
ELSE
a3=a3
ENDIF
REPLACE 第1生肖 with a1
REPLACE 第2生肖 WITH a2
REPLACE 第3生肖 with a3