巧用VB判断生宵与平润年

王朝站长·作者佚名 2011-12-21

宽屏版字体: 小 | 中 | 大 | 超大

这只是一个乐趣，趁着大家有时间，今天将如何用VB程序来判断一个人的生肖及哪年的平年与润年情况，作了下整理，现在发出来，供新手朋友热热身；

Private Sub Command1_Click()

Dim a As Integer, face As String

a = Val(Text1.Text) Mod 12 - 3

Select Case a

Case 1

face = "您的生肖为鼠"

Case 2

face = "您的生肖为牛"

Case 3

face = "您的生肖为虎"

Case 4

face = "您的生肖为兔"

Case 5

face = "您的生肖为龙"

Case 6

face = "您的生肖为蛇"

Case 7

face = "您的生肖为马"

Case 8

face = "您的生肖为羊"

Case 9

face = "您的生肖为猴"

Case 10

face = "您的生肖为鸡"

Case 11

face = "您的生肖为狗"

Case 12

face = "您的生肖为猪"

Case 0

face = "您的生肖为猪"

Case Else

MsgBox "您输入的年号有错误，请重新输入", vbOKOnly, "---===友情提示===---"

End Select

Label1.Caption = face

End Sub

Private Sub Command2_Click()

If Val(Text1.Text) Mod 400 = 0 Then

Label1.Caption = "您输入的年号为闰年！！！"

Else

Label1.Caption = "您输入的年号为平年！！！"

End If

End Sub

如有需要的朋友，只需要将上面的代码整个拷到VB程序代码区就要以正常使用了。

如有问题，欢迎到本社区留言咨询：http://hi.baidu.Com/huazhongxu