1给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。（闰年的条件是：年份能被4整除但不能被100整除或能被400整除）Private Sub Command1_Click()Dim x As Integer, y As IntegerText1.Text = InputBox(请输入年份 )x = Val(Text1.Text)Text3.Text = (x Mod 4) = 0 And (x Mod 100 0) _Or (x Mod 4) = 0 And (x Mod 400 = 0)End SubPrivate Sub Command2_Click()Dim x As Integer, y As IntegerText2.Text = InputBox(请输入月份)y = Val(Text2.Text)Select Case yCase 3 To 5Text4.Text = 春季 Case 6 To 8Text4.Text = 夏季Case 9 To 11
