Question

VB编程题：任意给定一年，判断该年是否为闰年，并根据给出的月份判断是什么季节和该月有多少天。闰年的...

VB编程题：任意给定一年，判断该年是否为闰年，并根据给出的月份判断是什么季节和该月有多少天。闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。（用 slect case 语句编写代码）急急急急急急急…急需答案、谢谢了！

Answer 1

Function LongYear(Y) As Boolean '已知年返回是否润年
If (Y Mod 4 = 0 Or Y Mod 400 = 0) And Y Mod 100 <> 0 Then
LongYear=True
Else
LongYear=False
End If
End Function
Function MonthDayCount(Y,M) '已知年月返回月天数
Select Case Month
Case 4,6,9,11
MonthDayCount=30
Case 2
MonthDayCount=IIF(LongYear(Y)=True,29,28)
Case Else
MonthDayCount=31
End Select
End Function
Function Season(M)'已知月返回季节
Select Case Month
Case 3,4,5
Season="春"
Case 6,7,8
Season="夏"
Case 9,10,11
Season="秋"
Case Else
Reason="冬"
End Select
End Function

Answer 2

Private Sub Command1_Click()

   Dim nian As Integer, yue As Integer, yuetian As Integer

   Dim jj As String

   Dim rnain As Boolean

Answer 3

昏暗的一年为基于整数判断是否是闰年
（MOD 4年= 0，MOD 100年> 0）或一年MOD 400 = 0 _
然后打印一年闰年“ BR />其他印刷年“，是不是闰年
ENDIF

对于i = 1 100'for周期，1 +2 + ...... .. +100
总和= SUM +我
下