1. (2021高三上·浙江月考) 气象学上将日平均气温连续5天等于或低于10℃算作入冬。编写VB程序，读取某月每日最高气温与最低气温数据（该月为30天，且本月气温最高不超过30℃，最低不低于0℃），温度以“最高温度～最低温度”的格式显示在列表框List1中；单击“统计”按钮Command1判断该月是否已经入冬，并统计得到该月最低日均气温，结果在Text1中呈现。程序运行界面如第图所示。

1. （1） 某月1号～10号每日最高气温与最低气温数据如下表所示：

   日期	1号	2号	3号	4号	5号	6号	7号	8号	9号	10号
   最高气温℃～最低气温℃	22～14	17～12	10～4	10～2	8～1	11～8	17～5	15～4	19～7	19～7

   若程序运行后，数组元素f(7)的值为。

3. （2） 请在划线处填入合适的代码。

   Dim a(1 To 30) As String

   Private Sub Form_Load( )

     ‘读取本月每日气温数据，存储于数组a中并在列表框List1中显示，过程略。

   EndSub

     PrivateSubCommand1_Click()

       Dim temp(1 To 60) As Integer

       Dim length As Integer, t As Integer, j As Integer

       Dim ave As Single

       Dim f(30) As Integer

       Dim flag As Boolean

       For i=1 To 30

        length=Len(a(i))

         j=1: t=1

         Do While j<=length

           If Not(Mid(a(i), j, 1)<="9" And Mid(a(i), j, 1)>="0") Then

             temp(2*i-1)=Val(Mid(a(i), t, j-t))

            

           End If

           j=j+1

         Loop

         temp(2*i)=Val(Mid (a(i), t, j-t))

       Next i

       f(0)=0: low=30: flag=False

       For i=1 To 30

         ave=(temp(i*2-1)+temp(i*2))/2

         If ave<low Then low=ave

         If Not flag Then

           If ave<=10 Then

            

           Else

             f(i)=0

         End If

         If f(i)=5 Then

           Text1.Text="本月已入冬"

           flag=True

         End If

       End If

     Next i

     If Then Text1.Text="本月尚未入冬"

     Text1.Text=Text1.Text+""+"本月日均气温最低为："+Str(low)

   End Sub