求一个简单生肖查询器小程序 - 编程论坛

xiangyue05102017-12-19 09:52

程序代码：

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

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

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

wds12017-12-19 11:21

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都是龙年