下面事件过程的功能是 : 输入年份和月份, 输出该月有多少天,在横线上填上适当内容。 提示 : 每年的 1 , 3 , 5 , 7 , 8 , 10, 12 月每月有 31 天,每年的 4 , 6 , 9 , 11 月,每月有 30 天,每年的 2 月份,闰年为 29 天,平年为 28 天。年份能被 4 整除,但不能被 100 整除或年份能被 400 整除的年份均为闰年,否则,为平年。 Private Sub Command1_ Click O Dim year% , month%, days% year = InputBox( ”请输入年份 : ” ) month = InputBox( 请输入月份 : ” ) Select Case (1) Case1,3,5,7,8,10,12 days = 31 (2) days = 30 Case 2 If (3) And year Mod 100 <> 0 Or year Mod 400=0 Then days = 29 Else days = 28 End If End Select Print year;” 年 ”; month; “ 月有 ”; days; “ 天 ” End Sub