1、有两种选择方式：1，出生年份查生肖；2，生肖查年份
求大神帮忙，本人初学！

y=textbox_Year.text 
i= (y-1900) mod 12
select case 
case 0

 shengxiao="子鼠"
case 1
……
end select

顺序是：子鼠、丑牛、寅虎、卯兔、辰龙、巳蛇、午马 、未羊 、申猴、酉鸡 、戌狗 、亥猪

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
反过来，查询年，就会有多个，你需要显示最近一个还是几个需要控制：例如1988，2000,2012，2024都是龙年