本程序的功能是,按"年/月/日"格式输入日期,计算出该日期是该年份中的第几天,过程leap_year

用于判断该年份是否为闰年(能被4整除且不能被100整除或能被400整除的年份为闰年)。

Private Sub Commandl_Click()

Dim st As String,rq(3)As Integeb k As Integer,d As Integer

Dim p As String*1,q As String,i As Integer,dt As Integer

st=Trim(Text1)

i=1

Do

p=Mid(st,i,1)

If p<>"/" Then

q=q & p

Else

k=k+1

rq(k)=Val(q)

（）

End If

i=（）

Loop Until i>Len(st)

k=k+1

rq(k)=q

For i=（） To 1 Step -1

Select Case i

Case 1,3,5,7,8,10

dt=31

Case 2

If leap_year(rq(1))Then

dt=29

Else

dt=28

End If

Case Else

dt=30

End Select

d= （）

Next i

Text2=d+rq(3)

End Sub

Private Function leap_year(n As Integer)As Boolean

If （） Then

leap_year=True

ElseIf n Mod 400=0 Then

leap_year=True

End If

End Function