| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 395 人关注过本帖
标题:求一个简单生肖查询器小程序
只看楼主 收藏
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
等 级:贵宾
威 望:86
帖 子:908
专家分:5237
注 册: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: 9Rank: 9Rank: 9
等 级:贵宾
威 望:21
帖 子:218
专家分:1193
注 册: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.040211 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved