求一道VB 题目 谢谢帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/24 03:35:05
给定年号与月份，判断该年是否闰年，并根据给出的月份来判断是什么季节和该月有多少天？

能被四整除的是闰年,如2004
但能被100整除的又不是闰年,如2100年
再能被400整除的又算是闰年,如2000或1600年
一句话:四年一闰,百年不闰,四百年又闰

闰年一年366天,其中二月29天,而非闰年即平年二月28天

其余月份,大月31天,小月30天.其中大月1,3,5,7,8,10,12
小月4,6,9,11

判断月份标准不同,有很多种.公认的有以春345,夏678秋9,10,11冬12,1,2为标准以有其它

Private Sub Command1_Click()
Dim t, i As String
'判断是否闰年
If Year(Date) Mod 4 = 0 Then
If Year(Date) Mod 100 <> 0 Then
t = "闰年"
ElseIf Year(Date) Mod 400 = 0 Then
t = "闰年"
Else
t = "平年"
End If
Else
t = "平年"
End If

'将闰年和平年的结果储存
If t = "闰年" Then i = 1 Else i = 0

'判断季节,按照国际惯例划分
If Month(Date) <= 3 Then
t = t & "春季"
ElseIf Month(Date) <= 6 Then
t = t & "夏季"
ElseIf Month(Date) <= 9 Then
t = t & "秋季"
ElseIf Month(Date) <= 12 Then
t = t &