以下程序运行后单击窗体输出结果是 _____________________ Private Sub Form_Click() Dim y As Integer, m As Integer y = Year(Now) m = Month(Now) if y Mod 4=0 and y mod 100<>0 or y mod 400=0 then Print " 今年是闰年 ,"; Else Print " 今年是平年 ,"; End If Select Case m Case 1 To 3 Print " 现在是春季。 " Case 4 To 6 Print " 现在是夏季。 " Case 7 To 9 Print " 现在是秋季。 " Case 10 To 12 Print " 现在是冬季。 " End Select End Sub