[填空题] 本程序的功能是,按"年/月/日"格式输入日期,计算出该日期是该年份中的第几天,过程leap_year用于判断该年份是否为闰年(能被4整除且不能被100整除或能被400整

[填空题] 本程序的功能是,按"年/月/日"格式输入日期,计算出该日期是该年份中的第几天,过程leap_year用于判断该年份是否为闰年(能被4整除且不能被100整除或能被400整除的年份为闰年)。Private Sub Commandl_Click()Dim st As String,rq(3)As Integeb k As Integer,d As IntegerDim p As String*1,q As String,i As Integer,dt As Integerst=Trim(Text1)i=1Dop=Mid(st,i,1)If p<>"/" Thenq=q & pElsek=k+1rq(k)=Val(q)（）End Ifi=（）Loop Until i>Len(st)k=k+1rq(k)=qFor i=（） To 1 Step -1Select Case iCase 1,3,5,7,8,10dt=31Case 2If leap_year(rq(1))Thendt=29Elsedt=28End IfCase Elsedt=30End Selectd= （）Next iText2=d+rq(3)End SubPrivate Function leap_year(n As Integer)As BooleanIf （） Thenleap_year=TrueElseIf n Mod 400=0 Thenleap_year=TrueEnd IfEnd Function

参考答案：

问题解析: