久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 9719|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

vb十二生肖程序 根據(jù)年份的輸入便可以查詢到你是什么生肖

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:126322 發(fā)表于 2016-6-12 10:41 | 只看該作者 回帖獎勵 |倒序?yàn)g覽 |閱讀模式
這是基于十二生肖的，根據(jù)年份的輸入便可以查詢到你是什么生肖，輸入年份后，會將生肖定位，以實(shí)現(xiàn)生肖的屬性。

  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

復(fù)制代碼


shengxiao.rar

3.63 KB, 下載次數(shù): 8, 下載積分: 黑幣 -5

評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵！

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表
主站蜘蛛池模板： 国产九九九| 欧美精品成人一区二区三区四区 | 精品成人佐山爱一区二区 | 国内精品在线视频 | 色综合久 | 日本一区二区高清不卡 | 日韩小视频 | 久久国产精品一区二区三区 | 一级全黄少妇性色生活免费看 | 国产精品美女www | 天天干免费视频 | 日韩在线观看中文字幕 | 一区观看 | 青青草av在线播放 | 国产精品国产三级国产aⅴ入口 | 91电影 | 91精品久久久久久久久久入口 | 精品国产一区二区三区久久久久久 | 91国产在线视频在线 | 久久出精品 | 天天操天天摸天天干 | 久久久久久久久毛片 | 国际精品鲁一鲁一区二区小说 | 亚洲免费精品一区 | 中文在线一区二区 | 国产一区二区三区精品久久久 | 久久99精品视频 | 国产激情视频在线观看 | 成人免费在线视频 | 国产一区二 | 久久久久久高潮国产精品视 | 久久噜 | 精品一区二区三区免费毛片 | 国产一区二区三区在线 | 祝你幸福电影在线观看 | 精品欧美一区二区三区久久久 | 亚洲一区国产精品 | 久草网址| 一区二区视屏 | 噜啊噜在线| 青青艹在线视频 |