用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB 根据年份推算出对应生肖

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2010-09-17 09:35:01

以下这个函数可以根据年份推算出所对应的生肖。

HTML code运行代码复制代码编辑
Public Function SX(Year As Integer) As String
    Dim Name As Integer
    Name = Year Mod 12
    Select Case Name
        Case 4
        SX = "鼠"
        Case 5
        SX = "牛"
        Case 6
        SX = "虎"
        Case 7
        SX = "兔"
        Case 8
        SX = "龙"
        Case 9
        SX = "蛇"
        Case 10
        SX = "马"
        Case 11
        SX = "羊"
        Case 0
        SX = "猴"
        Case 1
        SX = "鸡"
        Case 2
        SX = "狗"
        Case 3
        SX = "猪"
    End Select
End Function

Private Sub Form_Load()
    MsgBox SX(2010)
End Sub
 

Tags:生肖 年份 VB

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      100%(2)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论