并没有按照你说的输顶Y判断，输入其他的结束！这种模式不适用用 我给的代码如下： 输入年份回车就查询？输入小于4的年份直接退出程序 #include 、
Private Sub Command1_Click() Dim y%, x%, s$ y = Val(InputBox("输入1900年以后的任意一个年份")) If y >= 1900 Then x = (y - 1900) Mod 12 Select Case x Case 0 s = "鼠" Case 1 s = "牛" Case 2 s = "虎" Case 3 s = "兔" Case 4 s = "龙" Case 5 s = "蛇" Case 6 s = "马" Case 7 s = "羊" Case 8 s = "猴" Case 9 s = "鸡" Case 10 s = "狗" Case 11 s = "猪" End Select MsgBox y & "年是" & s & "年" Else MsgBox "输入错误，年份必须大于等于1900" End If End Sub输入年份判断生肖、
8595找一个基准！然后比较给定年份与基准年份的差距，就能很容易得到结果了。
1936 1948 1960 1972 1984 1996 2008 2020！
查看看星座对应找到既可!！
笑笑语响彻在耳旁？吸引！
刘三姐是唱山歌的、十二生肖谁唱歌最好听啊， 鸡！
1904年，1916年！1928年、1940年。1952年。1964年。1976年，1988年。2000年、2012年！2024年！2036年。2048年、2060年！
属龙啊。1964年出生于农历甲辰年！天干为甲。地支为辰！甲五行属木，辰为生肖龙。五行纳音佛灯火，故为木龙之命！ 木龙人的财9438运一般！木龙人较有进取心。一有机会就想施展自己的抱负、但有些眼高手低！若命中有财运吉吉星相扶。木龙人常从事审计！财会，律师类工作、能名利双收。若命中没没有财运吉星相扶、木龙人会学而不专、上进心不足。内心常忧虑不安，事业不会很顺，钱财只能够用。并无富裕，、
//这个应该可以满足你说的要求了，如果有什么不明白白的地方！我们可以讨论！ #include，
输入年份判断生肖、年份判断生肖