SET TALK OFF
CLEAR
DO WHILE 。t。
ACCEPT "请输入出生年份：" TO nf
nf=VAL(nf)
IF nf2200
? "出生年份有误或没有实际意义！"
LOOP
ENDIF
? "该出生年份所属的生肖是：" shengxiao(nf)
?
WAIT "是否继续查询（Y/N)？" TO answer
IF UPPER(answer)<>"Y"
EXIT
ENDIF
ENDDO
SET TALK ON
RETURN
FUNCTION shengxiao
PARAMETERS csnf
DIMENSION sxm[12]
sxm="鼠牛虎兔龙蛇马羊猴鸡狗猪"
RETURN SUBSTR(sxm,MOD(csnf-1900 1,12)*2-1,2)。
问：有什么国外医药文献网站本人想查找有关某药物成份，听说外国已有其合成方法，请问有什...
答：:PubmedMedline:等等,有很多,这几个比较权威也比较全,你先看看吧!详情>>
问：看看这巴掌，从手相学的角度，看其是否能当好一把手（图） 0分
答：评论栏太挤了，还是这儿宽绰。 当时的小梅是在喝了一瓶法国的路易14和一瓶意大利的那不勒斯威士忌后突显出来的醉态。 很欣赏小梅的醉态，完全是平民领袖的风度，不假不...详情>>
