小林很期待建國(guó)100年大慶的盛典，在學(xué)習(xí)了VB程序設(shè)計(jì)后，他設(shè)計(jì)一個(gè)VB應(yīng)用程序，在Text1、Text2、Text3中輸入當(dāng)天的年、月、日，點(diǎn)擊命令按鈕Command1，程序在標(biāo)簽Label4上顯示離2049年10月1日還有多少天，程序運(yùn)行界面如圖所示
：
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼．
Dim mon（1To 12）As Long
Sub makemonth （　?。?br />mon（1）=31：mon（2）=28：mon（3）=31：mon（4）=30：mon（5）=31：mon（6）=30
mon（7）=31：mon（8）=31：mon（9）=30：mon（10）=31：mon（11）=30：mon（12）=31
End Sub
Function isp（y as Integer） As

①

①

'判斷是否閏年
If y Mod 400=0Then
isp=True
ElseIf y Mod 100＜＞0And y Mod 4=0Then
isp=True
Else
isp=False
End If
End Function
Private Sub Command1_Click （　　）
Dim y As Long,m As Long,d As Long
Dim cnt As Long
y=Val（Text1．Text）
m=Val（Text2．Text）
d=Val（Text3．Text）
Call makemonth'預(yù)定義每個(gè)月最大天數(shù)
cnt=0
Do While （y＜＞2049）Or （m＜＞10）Or （d＜＞1）
cnt=cnt+1

②

②

md=mon（m）
If m=2And isp（y）=True Then

③

③

If d＞md Then
d=1
m=m+1
End If
If m＞12Then
m=1
y=y+1
End If
Loop
Label4．Caption=“到2049年10月1日還有“+Str（cnt）+“天“
End Sub              其中，（1）、（2）、（3）處語句分別填

Boolean

Boolean

、

d=d+1

d=d+1

、

md=md+1

md=md+1

．