小林很期待建国100年大庆的盛典，在学习了VB程序设计后，他设计一个VB应用程序，在Text1、Text2、Text3中输入当天的年、月、日，点击命令按钮Command1，程序在标签Label4上显示离2049年10月1日还有多少天，程序运行界面如图所示
：
实现上述功能的VB程序如下，请在横线处填入合适代码．
Dim mon（1To 12）As Long
Sub makemonth （　　）
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'预定义每个月最大天数
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

．