填空题 本程序的功能是,按"年/月/日"格式输入日期,计算出该日期是该年份中的第几天,过程leap_year 用于判断该年份是否为闰年(能被4整除且不能被100整除或能被400整除的年份为闰年)。 Private Sub Commandl_Click1 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) 2(26) 3 End If i= 4(27) 5 Loop Until i>Len(st) k=k+1 rq(k)=q For i= 6(28) 7 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= 8(29) 9 Next i Text2=d+rq(3) End Sub Private Function leap_year(n As Integer)As Boolean If 10(30) 11 Then leap_year=True ElseIf n Mod 400=0 Then leap_year=True End If End Function