小林很期待建國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程序如下,請?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
.