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

VERSION 5.00

Begin VB.Form Form1

Caption         =   "生肖查询"

ClientHeight    =   1695

ClientLeft      =   60

ClientTop       =   345

ClientWidth     =   4245

Icon            =   "Form1.frx":0000

LinkTopic       =   "Form1"

ScaleHeight     =   1695

ScaleWidth      =   4245

StartUpPosition =   1  '所有者中心

Begin VB.CommandButton Command2

BackColor       =   &H00FFC0C0&

Caption         =   "退出"

Height          =   450

Left            =   2250

Style           =   1  'Graphical

TabIndex        =   3

Top             =   1080

Width           =   1395

End

Begin VB.CommandButton Command1

BackColor       =   &H00FFC0C0&

Caption         =   "生肖"

Height          =   450

Left            =   510

Style           =   1  'Graphical

TabIndex        =   0

Top             =   1080

Width           =   1395

End

Begin VB.Label Label1

BeginProperty Font

Name            =   "宋体"

Size            =   12

Charset         =   134

Weight          =   400

Underline       =   0   'False

Italic          =   0   'False

Strikethrough   =   0   'False

EndProperty

Height          =   495

Left            =   105

TabIndex        =   2

Top             =   315

Width           =   3180

End

Begin VB.Label Label2

BeginProperty Font

Name            =   "宋体"

Size            =   15

Charset         =   134

Weight          =   700

Underline       =   0   'False

Italic          =   0   'False

Strikethrough   =   0   'False

EndProperty

ForeColor       =   &H000000FF&

Height          =   495

Left            =   3315

TabIndex        =   1

Top             =   315

Width           =   810

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

'Download by http://down.liehuo.net

Dim Year As Integer

Dim Name As Integer

Year = Val(InputBox("请输人出生年份：", "生肖查询", 1977))

Label1.Caption = "您是" & Str(Year) + "年出生的生肖为："

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

End Sub

Private Sub Command2_Click()

End

End Sub