输入年份判断生肖,知道年份如何计算生肖
阅读导航
十二生肖的年份
卯兔:2011. 1999. 1987. 1975. 1963. 1951. 1939. 1927. 1915.
寅虎:2010. 1998. 1986. 1974. 1962. 1950. 1938. 1926. 1914.
丒牛:2009. 1997. 1985. 1973. 1961. 1949. 1937. 1925. 1913.
子鼠:2008. 1996. 1984. 1972. 1960. 1948. 1936. 1924. 1912.
亥猪:2007. 1995. 1983. 1971. 1959. 1947. 1935. 1923. 1911.
戎狗:2006. 1994. 1982. 1970. 1958. 1946. 1934. 1922. 1910.
酉鸡:2005. 1993. 1981. 1969. 1957. 1945. 1933. 1921. 1909.
申猴:2004. 1992. 1980. 1968. 1956. 1944. 1932. 1920. 1908.
未羊:2003. 1991. 1979. 1967. 1955. 1943. 1931. 1919. 1907.
午马;2002. 1990. 1978. 1966. 1954. 1942. 1930. 1918. 1906.
巳蛇:2001. 1989. 1977. 1965. 1953. 1941. 1929. 1917. 1905.
辰龙:2000. 1988. 1976. 1964. 1952. 1940. 1928. 1916. 1904.
回答完毕,釆纳最佳答案哦,不然白辛苦啦。先谢哈
VBA编程,由用户输入一个年份,判断是什么生肖,并输出相应的图片_百度知 ...
'定义生肖数组
Dim sx
'以下两行按需求任选一行使用
sx = Split("鼠,牛,虎,兔,龙,蛇,马,羊,猴,鸡,狗,猪", ",")
'sx = Split("子鼠,丑牛,寅虎,卯兔,辰龙,巳蛇,午马,未羊,申猴,酉鸡,戌狗,亥猪", ",")
'在TextBox1中输入年份,
'TextBox1限制输入字数为4(属性MaxLength=4)且只能输入数字(代码)
Private Sub TextBox1_KeyPress(ByVal KeyAscii As Integer)
If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then KeyAscii = 0
End Sub
‘使用CommandButton1计算生肖索引,在Label1显示生肖名称,在Image1显示生肖图片
Private Sub CommandButton1_Click()
Dim sxIndex As Integer
sxIndex = Abs(inYear - 1900) Mod 12 '计算生肖名称索引,1900是鼠年的年份数
Label1 = sx(sxIndex) '显示生肖名称
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\sxpic\sx" & sxIndex & ".jpg") '显示生肖图片,生肖图片使用像“sx0.jpg”这样的文件名。要求:1、文件必须是保存过的;2、需要把生肖图片放在文件所在文件夹的子文件夹“sxpic"之下
End Sub
编写程序,输入一个年份,判断该年属相.(提示switch-case)
#include <stdio.h>
int main(){
char p[12][4]={"鼠","牛","虎","兔","龙","蛇","马","羊","鸡","猴","狗","猪"};
int year0=2008; //2008年是鼠年,作为基准
int year,n;
printf("请输入一个年份\n");
scanf("%d",&year);
n=year-year0;
n=n%12;
if (n<0) n =12; //求余时,n可能是负数,如果是负数则加12
printf("%d年属%s\n",year,p[n]);
}
怎样根据年份判断十二生肖??
把生肖定义为0~11 今年是鼠年,就已2008年为基准
(unsigned int)(年份 - 2008) % 12
怎么根据年龄算十二生肖
我举个例子 然后再给你总结方法:年龄有虚岁(出生1岁 过年2岁) 和 实岁(过年1岁)
我们以虚岁24 即实岁23为例子 今年为龙年 23=1X12 11
12-11=1 即他的属相为明年的生肖 蛇
我们再以 虚岁34 实岁33为例子 今年为龙年 33=12X2 9
即他的属相为龙后的第九个属相
这里有口诀 鼠牛虎兔龙蛇马羊猴鸡狗猪 即为属牛
公式应该是 实岁 分解为
12XN x 今年属相后的第X个属相 就是该年龄的 生肖
用年份怎么算出人的生肖?
一般是要看农历的
属虎佩戴什么玉镯子,属虎今年有一难
阅读导航2023年的属虎女生在本年佩戴什么首饰好?属虎的人适合佩戴什么属虎人最适合佩戴什么饰品属虎的人适合佩带什么玉佩属虎本命年佩戴什么?2023年的属虎女生在本年佩戴什么首饰好?2023年的属虎女生在本年佩戴什么首饰好?引言:2012年已经到来,所以对于属虎的女生来说,本命年佩戴什么样的首饰是比较好的呢,接下来跟着小编一起去了解一下吧。兴仁信息网2023-06-21 05:31:400000梦到牙齿脱落了吐出来一大把周公解梦,梦见牙齿掉了一大把吐到手上
阅读导航梦到牙齿脱落了一大把并吐出来梦见掉牙吐出来一大把梦到下排牙齿脱落了一大把并吐出来梦见牙齿掉了一大把,直往外吐,恶心死了,女人梦到牙齿脱落了吐出来一大把女梦见牙齿掉了并吐一把梦到牙齿脱落了一大把并吐出来0000三合分金吉凶,二十四山三合水法吉凶断
阅读导航1、三合风水怎样立向取分金2、三合风水分金变局,十二长生宫该怎么排?3、三合盘上一丶三丶五…层的意思?4、风水立向三合盘兼向多少度以内算正向5、三合风水立向公式6、坐度分金是怎么分?三合风水怎样立向取分金首先看来龙去脉。杨公水法,立向以水口定。取分金甲子看山家等来定。三合风水分金变局,十二长生宫该怎么排?兴仁信息网2023-08-14 14:51:060000招财风水摆件哪个最好,招财效果最好的摆件
阅读导航家中摆什么招财8种招财摆件介绍风水招财辟邪摆件有哪些?什么颜色的风水摆件最招财有没有人知道什么风水摆件在家里可以守财家中摆什么招财8种招财摆件介绍家居生活中,什么摆件可以招财家中摆什么招财8种招财摆件介绍1、水生植物摆玄关最招财兴仁信息网2023-05-05 02:05:500000双子座和摩羯女座配对指数,水瓶座和双子座配吗
阅读导航1、双子座男和摩羯座女配吗2、男生星座:双子座女生星座:摩羯座星座配对指数是多少?3、双子座男和摩羯女座配对多少分4、双子男和摩羯座女合适吗?5、双子座和魔羯座配对指数6、双子座和摩羯座在一起合适吗?双子座男和摩羯座女配吗配对星座:男双子座VS女摩羯座配对指数:40配对比重:60:400000