VB.NET 根据年份判断生肖!

VB.NET 根据年份判断生肖!

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

生肖判断(TextBox1.Text)

End Sub

Function 生肖判断(ByVal MyYear As Integer) As String

Dim MyInfo As String = MyYear.ToString() + "年出生的人属："

Try

Select Case MyYear Mod 12

Case 4

MyInfo += "鼠"

Case 5

MyInfo += "牛"

Case 6

MyInfo += "虎"

Case 7

MyInfo += "兔"

Case 8

MyInfo += "龙"

Case 9

MyInfo += "蛇"

Case 10

MyInfo += "马"

Case 11

MyInfo += "羊"

Case 0

MyInfo += "猴"

Case 1

MyInfo += "鸡"

Case 2

MyInfo += "狗"

Case 3

MyInfo += "猪"

End Select

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try

Return 1

End Function

End Class