怎样根据年份判断十二生肖？？
把生肖定义为0~11 今年是鼠年？就已2008年为基准 (unsigned int)(年份 - 2008) % 12，
VBA编程，由用户输入一个年份，判断是什么生肖，并输出相应的图片
'定义生肖数组 Dim sx '以下两行按需求任选一行使用 sx = Split("鼠,牛,虎,兔,龙,蛇,马,羊,猴,鸡,狗,猪", ",") 'sx = Split("子鼠,丑牛,寅虎,卯兔,辰龙,巳蛇,午马,未羊,申猴,酉鸡,戌狗,亥猪", ",") '在TextBox1中输入年份！ 'TextBox1限制输入字数为4(属性MaxLength=4）且只能输入数字（代码） Private Sub TextBox1_KeyPress(ByVal KeyAscii As Integer) If KeyAscii。vbKey9 Then KeyAscii = 0 End Sub ‘使用CommandButton1计算生肖索引！在Label1显示生肖名称。在Image1显示生肖图片 Private Sub CommandButton1_Click() Dim sxIndex As Integer sxIndex = Abs(inYear - 1900) Mod 12 '计算生肖6177名称索引，1900是鼠年的年份数 Label1 = sx(sxIndex) '显示生肖名称 Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\sxpic\sx" & sxIndex & ".jpg") '显示生肖图片、生肖图片使用像“sx0.jpg”这样的文件名。要求：1，文件必须是保存过的。2，需要把生肖图片放在文件所在文件夹的子文件夹“sxpic"之下 End Sub！
怎么判断一个年份是不是闰年
1、普通情况求闰年只需除以4可除尽即即可 年/4余数为0 2。如果是100的倍数但不是400的倍数,那就不是闰年年了,即末两位都是零的整除400才行 像1700？1800、1900！2100都不是闰年,但是2000、2400是的. 3、2100年不是闰年,闰年不是象你们所说以加4为判断闰年标准的,所以闰年有些4年一次,但是有些是8年一次的.例如：1896年是闰年,但1900年不是,到1904年才是闰年.。
一个人的生肖是看阳历年份还是看阴历年份？
生肖属相是以二十四节气里的立春为界、例如兔与龙，农历的出生时间是在立春之前！那么你的生肖属相相就是兔,在在立春之后就是龙,这取决于当年的立春是在哪一天。不要管什么阳历、这是中国的传统文化当然是按老黄历的！
遇到生肖相冲的年份可以结婚吗
可以的，桃花逢冲！新娘早在洞房中、，
樑绍壬属什么生肖什么年份
她的生肖是羊 919742年的 都26岁了, 、，
什么年份是龙年
1954。1976。1988！2000！
马年的年份有那些？
你是从哪个年代问起！1906。 1918，1930、1942，1954，1966。197阀。1990！2002、2014这都是是马年,！
帮忙编写一个VB程序，根据年份判断属相，谢谢
Dim Year As Integer Dim Name As Integer Year = Val(InputBox("请输人出生年份：", "生肖查询", 1977)) Label1.Caption = "您是" & Str(Year) + "年出生的生肖为：" Name = Year Mod 12 Select Case Name Case 4 Label2.Caption = "鼠" Case 5 Label2.Caption = "牛" Case 6 Label2.Caption = "虎" Case 7 Label2.Caption = "兔" Case 8 Label2.Caption = "龙" Case 9 Label2.Caption = "蛇" Case 10 Label2.Caption = "马" Case 11 Label2.Caption = "羊" Case 0 Label2.Caption = "猴" Case 1 Label2.Caption = "鸡" Case 2 Label2.Caption = "狗" Case 3 Label2.Caption = "猪" End Select？
属生肖是按出生年份算还是出生时辰算的
年份！
