本程序的功能是,按"年/月/日"格式输入日期,计算出该日期是该年份中的第几天,过程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
