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