输出的输_输出其对应的生肖

1.C++万年历 十二生肖的代码带着解释，跪求大神

2.VBA编程，由用户输入一个年份，判断是什么生肖，并输出相应的

3.C#:输入一个整数.程序根据数字匹配12生肖，输出生肖年,如果输出的整数不在范围内则显示错误信息。

4.VB 判断生肖

5.输出伤害率极高 游戏天赋特别强的生肖？

char[12]

name=['猴','鸡','狗','猪','鼠','牛','虎','兔','龙','蛇','马','羊'];

int

x=年份%12；

输出

name[x];

C++万年历 十二生肖的代码带着解释，跪求大神

dim birthday

birthday =cdate("1989-6-x") 'birthday like "1990-1-1"

'生日函数

Function Zodiac(birthday)

birthyear = Year(birthday)

ZodiacList = Array("猴", "鸡", "狗", "猪", "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊")

Zodiac = ZodiacList(birthyear Mod 12)

End Function

weekdate=weekday(birthday) '返回数字 如果是7就是周末

晚了wml懒的写了。。解决不了再来帮加上吧

good luck!

VBA编程，由用户输入一个年份，判断是什么生肖，并输出相应的

写了下，测试成功，代码很简单，有注释。

using?namespace?std;

int?main()

{

//?12?猪?在这能被12取余为0说明差值是12的倍数

//?0"猪",?1"鼠",?2"牛",?3"虎",?4"兔",?5"龙",?6"蛇",?7"马",?8"羊",?9"猴",?10"鸡",?11"狗"

char?*?zodiacArray[12]?=?{?"猪",?"鼠",?"牛",?"虎",?"兔",?"龙",?"蛇",?"马",?"羊",?"猴",?"鸡",?"狗"?};

int?baseYear?=?2007;?//07年是鼠年，以此为基准进行判断

int?testYear?=?2014;

int?count?=?0;

int?result?=?0;

while?(true)

{

printf("Please?input?the?year?whose?zodiac?you?want?to?know:\n");

cin>>testYear;

//和基准年间的差值

count?=?abs(baseYear?-?testYear);

//判断是基准年之前还是之后

if?((baseYear?-?testYear)?>?0)

{

//基准年之前，差值取余再取补数即可得到生肖的位置，

result?=?12?-?count?%?12;?

}

else

{

//差值取余即可得到生肖的位置，

result?=?count?%?12;?

}

printf("要测试年份的生肖是：?%s\n",?zodiacArray[result]);

}

return?0;

}

C#:输入一个整数.程序根据数字匹配12生肖，输出生肖年,如果输出的整数不在范围内则显示错误信息。

'定义生肖数组

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

VB 判断生肖

public string YearAnimal(int yearNumber)

{

string animal=null;//生肖名

int i=yearNumber;//输入的整数

if（i<1）

return "输入信息错误";

while(i>=12)

{ i=i-12; }

swith(i)

{

case 0:

animal="猴";

break;

case 1;

animal="鸡";

break;

以此类推

case 11;

animal="羊";

break;

}

return "这一年是"+animal+"年";

}

例如输入2004

则显示

这一年是猴年

输出伤害率极高 游戏天赋特别强的生肖？

Dim?a(1?To?12)?As?String

Private?Sub?Command1_Click()

n?=?Combo1.Text

If?n?<=?0?Then?MsgBox?"请输入大于0的数！":?Exit?Sub

If?n?<?12?Then

n?=?n?+?12

End?If

If?n?>=?12?Then

r?=?n?Mod?12

Select?Case?r

Case?4:?sx?=?"鼠"

Case?5:?sx?=?"牛"

Case?6:?sx?=?"虎"

Case?7:?sx?=?"兔"

Case?8:?sx?=?"龙"

Case?9:?sx?=?"蛇"

Case?10:?sx?=?"马"

Case?11:?sx?=?"羊"

Case?0:?sx?=?"猴"

Case?1:?sx?=?"鸡"

Case?2:?sx?=?"狗"

Case?3:?sx?=?"猪"

End?Select

End?If

Label1.Caption?=?sx

End?Sub

Private?Sub?Form_Load()

Label1.Caption?=?""

Label1.FontSize?=?30

Label1.ForeColor?=?vbBlue

End?Sub

十二生肖中，每个生肖都有自己独特的个性，有的生肖性子特别的慢，无论做什么都一板一眼的，别人都急的不行，他们自己却不觉得怎么样。有的生肖却很机灵，反应也很快，无论是做事还是玩游戏，都是很厉害的角色，那么都有哪些生肖的游戏天赋特别强呢？

属虎：善于分析属虎人霸气十足，很具领导天赋，也特别善于分析问题。在游戏中，他们不会盲目的操作，在玩的时候还会不断的运转自己的大脑，通过游戏中对方的走位和动作，来不断调整自己的战略手段，让自己在非常轻松的状态下就可以赢得整场游戏。

属蛇：头脑灵活属蛇人都很聪明，他们不仅自己擅长运动，四肢协调性非常的好，就连他们的头脑，都运转的很快，十分的灵活。属蛇人在游戏中也很厉害，因为他们大脑运转的很快，对方不论使用什么战略，都会被他们一眼看穿，然后马上调整自己的手段，并且取得成功。

属猴：很聪明属猴人的聪明是有目共睹的，他们就真的像树林中的猴子一样，头脑发达，而且四肢也很协调，永远不会出现头脑和手指不能共用的时候。在游戏中也一样，而且他们很懂战略，下手也非常的准和果决，所以他们的输出伤害率极高，游戏的天赋也特别的高。

属狗：运气很好属狗人很聪明，也很机智，但是他们最好的却不是头脑，而是运气。属狗人运气十分的好，这一点在游戏中被发挥的淋漓尽致，随便走走就能捡到很好的装备，甚至对方突然掉线的情况都会经常发生，这样好的运气，真的不是所有人都会有的，所以他们也算是游戏大神了。（

奇点星座网，很多人都会关注的星座知识百科。八字姻缘、八字事业、婚姻运势、财神灵签、情感合盘、看另一半、八字测算、姓名速配、一生运势、复合机会，您可以在底部点个赞或者在线咨询（仅供）：://.adxqd/xz/