【实例说明】
    在编写多媒体软件时，有时可能会用到生肖。本例将讲解如何通过输入的出生年份查询生肖属相。运行程序，单击“生肖”按钮，在弹出的输入框中输入年份，然后按“确定”按钮，即可得到该年份的属相。

【编程思路】
    运用Mod运算符，对两个数作除法并且只返回余数。用输入的年份除以12，返回的余数通过Select Case语句，即可判断出生肖属相。下面是Mod的语法及参数：
    语法：result=number1 Mod number2
    result 必需的。任何数值变量。
    number1 必需的。任何数值表达式。
    number2 必需的。任何数值表达式。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在Form1窗体中放置两个Label控件，两个Command控件。

    3.源程序  [素材源程序下载]


Private Sub Command1_Click()
        Dim year As Integer
        Dim name As Integer
        year = Val(InputBox("请输入您出生的年份:", "生肖查询", 1999))
        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