这只是一个乐趣,趁着大家有时间,今天将如何用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