题型：综合题 题类：常考题 难易度：困难
浙江省东阳中学2016-2017学年高二下学期信息技术入学考试（寒假作业检测）试卷
提示：年份值符合下列两种情况之一的是闰年。
⒈年份是4的倍数，但不是100的倍数；
⒉年份是400的倍数。
Private Sub Judge_Click()
Dim riqi As String, st As String
Dim year As Integer, month As Integer, day As Integer
Dim rn As Boolean, hefa As Boolean
riqi = Text1.Text
year = Val(Mid(riqi, 1, 4))
month = Val(Mid(riqi, 5, 2))
day = ‘第①处
st = Str(year) + "年" + Str(month) + "月" + Str(day) + "日"
rn = False ‘用于判断是否为闰年
If Then rn = True ‘第②处
If year Mod 4 = 0 And year Mod 100 <> 0 Then rn = True
hefa = True ‘用于判断是否为合法日期
If month = 0 Or month > 12 Then hefa = False
If day = 0 Then hefa = False
If (month = 1 Or month = 3 Or month = 5 Or month = 7 Or ’与下一行语句同行
month = 8 Or month = 10 Or month = 12) And day > 31 Then hefa = False
If (month = 4 Or month = 6 Or month = 9 Or month = 11) ’与下一行语句同行
And day > 30 Then hefa = False
If Then hefa = False
’第③处,判断闰年2月的天数是否合法
If month = 2 And Rn = False And day > 28 Then hefa = False
If hefa = True Then st = st + " 合法日期" Else st = st + " 非法日期"
List1.AddItem st
End Sub
试题篮
