设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › vb十二生肖程序 根据年份的输入便可以查询到你是什么生 ...
返回列表 发新帖
查看: 9351|回复: 0
打印 上一主题 下一主题
收起左侧

vb十二生肖程序 根据年份的输入便可以查询到你是什么生肖

[复制链接]
跳转到指定楼层
楼主
ID:126322 发表于 2016-6-12 10:41 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这是基于十二生肖的，根据年份的输入便可以查询到你是什么生肖，输入年份后，会将生肖定位，以实现生肖的属性。

  1. VERSION 5.00
  2. Begin VB.Form Form1
  3.    Caption         =   "生肖查询"
  4.    ClientHeight    =   1695
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4245
  8.    Icon            =   "Form1.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1695
  11.    ScaleWidth      =   4245
  12.    StartUpPosition =   1  '所有者中心
  13.    Begin VB.CommandButton Command2
  14.       BackColor       =   &H00FFC0C0&
  15.       Caption         =   "退出"
  16.       Height          =   450
  17.       Left            =   2250
  18.       Style           =   1  'Graphical
  19.       TabIndex        =   3
  20.       Top             =   1080
  21.       Width           =   1395
  22.    End
  23.    Begin VB.CommandButton Command1
  24.       BackColor       =   &H00FFC0C0&
  25.       Caption         =   "生肖"
  26.       Height          =   450
  27.       Left            =   510
  28.       Style           =   1  'Graphical
  29.       TabIndex        =   0
  30.       Top             =   1080
  31.       Width           =   1395
  32.    End
  33.    Begin VB.Label Label1
  34.       BeginProperty Font
  35.          Name            =   "宋体"
  36.          Size            =   12
  37.          Charset         =   134
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   495
  44.       Left            =   105
  45.       TabIndex        =   2
  46.       Top             =   315
  47.       Width           =   3180
  48.    End
  49.    Begin VB.Label Label2
  50.       BeginProperty Font
  51.          Name            =   "宋体"
  52.          Size            =   15
  53.          Charset         =   134
  54.          Weight          =   700
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       ForeColor       =   &H000000FF&
  60.       Height          =   495
  61.       Left            =   3315
  62.       TabIndex        =   1
  63.       Top             =   315
  64.       Width           =   810
  65.    End
  66. End
  67. Attribute VB_Name = "Form1"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Private Sub Command1_Click()
  73. 'Download by http://down.liehuo.net
  74.   Dim Year As Integer
  75.   Dim Name As Integer
  76.   Year = Val(InputBox("请输人出生年份：", "生肖查询", 1977))
  77.   Label1.Caption = "您是" & Str(Year) + "年出生的生肖为："
  78.   Name = Year Mod 12
  79.   Select Case Name
  80.     Case 4
  81.       Label2.Caption = "鼠"
  82.     Case 5
  83.       Label2.Caption = "牛"
  84.     Case 6
  85.       Label2.Caption = "虎"
  86.     Case 7
  87.       Label2.Caption = "兔"
  88.     Case 8
  89.       Label2.Caption = "龙"
  90.     Case 9
  91.       Label2.Caption = "蛇"
  92.     Case 10
  93.       Label2.Caption = "马"
  94.     Case 11
  95.       Label2.Caption = "羊"
  96.     Case 0
  97.       Label2.Caption = "猴"
  98.     Case 1
  99.       Label2.Caption = "鸡"
  100.     Case 2
  101.       Label2.Caption = "狗"
  102.     Case 3
  103.       Label2.Caption = "猪"
  104.    End Select
  105. End Sub
  106. Private Sub Command2_Click()
  107.   End
  108. End Sub

复制代码


shengxiao.rar

3.63 KB, 下载次数: 8, 下载积分: 黑币 -5

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励！

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶顶 踩踩
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表