日期判斷
從文本框Text1輸入一個8位數(shù)字表示的日期,其中第1到4位表示年(第1為確定不為零),第5到6位表示月,第7到8位表示日.單擊“判斷”按鈕,判斷該日期是否合法,將結(jié)果依次輸出到列表框List1.程序界面如圖所示:
提示:年份值符合下列兩種情況之一的是閏年.
1.年份是4的倍數(shù),但不是100的倍數(shù);
2.年份是400的倍數(shù).
(1)觀察程序代碼,可知“判斷”按鈕的對象名為
D
D
.(單選,填字母:A.Text1/B.List1/C.Command1/D.Judge/E.判斷)
(2)為實現(xiàn)上述功能,請在橫線處填入合適的代碼.
Private Sub Judge_Click( ?。?br /> 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=①Val(Mid(riqi,7,2))或Val(Mid(riqi,7))
①Val(Mid(riqi,7,2))或Val(Mid(riqi,7))
'第①處
st=Str(year)+“年“+Str(month)+“月“+Str(day)+“日“
rn=False'用于判斷是否為閏年
If ②year mod 400=0
②year mod 400=0
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 ③month=2 andrn=true and day>29
③month=2 andrn=true and day>29
Then hefa=False
'第③處,判斷閏年2月的天數(shù)是否合法
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
第①處代碼為 Val(Mid(riqi,7,2))或Val(Mid(riqi,7))
Val(Mid(riqi,7,2))或Val(Mid(riqi,7))
第②處代碼為 year mod 400=0
year mod 400=0
第③處代碼為 month=2 and rn=true and day>29
month=2 and rn=true and day>29
.