| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 327 人关注过本帖
标题:求一个简单生肖查询器小程序
只看楼主 收藏
guconan
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2016-9-30
结帖率:0
  已结贴   问题点数:20  回复次数:2   
求一个简单生肖查询器小程序
1、有两种选择方式:1,出生年份查生肖;2,生肖查年份
求大神帮忙,本人初学!
2017-12-18 23:11
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:83
帖 子:895
专家分:5143
注 册:2015-8-10
  得分:10 
程序代码:

y=textbox_Year.text
i= (y-1900) mod 12
select case
case 0
 shengxiao="子鼠"
case 1
……
end select

顺序是:子鼠、丑牛、寅虎、卯兔、辰龙、巳蛇、午马 、未羊 、申猴、酉鸡 、戌狗 、亥猪
2017-12-19 09:52
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:14
帖 子:138
专家分:703
注 册:2016-3-10
  得分:10 
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都是龙年
2017-12-19 11:21







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.112712 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved