急急急,VB怎么做

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:33:19
编写给定年号与月份，判断该年是否闰年，并根据给出的月份来判断是什么季节和该月有多少天？(闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。)

Private Sub Form_Click()
Dim d As Date
Dim y As Integer
Dim r As Boolean
Dim j As Integer
Dim n As Integer

d = CDate(InputBox("输入年月:", , Year(Date) & "/" & Month(Date)) & "/1")
Print Year(d) & "/" & Month(d)

y = Year(d)
r = y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400
If r Then
Print "闰年"
End If

Select Case Month(d)
Case 1 To 3
j = "春"
Case 4 To 6
j = "夏"
Case 7 To 9
j = "秋"
Case 10 To 12
j = "冬"
End Select
Print j & "季"

Select Case Month(d)
Case 1, 3, 5, 7, 8, 10, 12
n = 31
Case 2
n = IIf(r, 29, 28)
Case Else
n = 30
End Select