【推荐1】小陈基于对分查找思想编写了一个三分查找VB程序，功能如下：在文本框Text1中显示n个升序排列的数。在文本框Text2中输入查找目标值key。单击“查找”按钮后，若能找到则输出key在数列中的下标位置；若找不到则输出key邻近数的下标位置。例如，当文本框Text2中输入“35”时，输出下标位置“4”；当文本框Text2中输入“33”时，输出下标位置“3，4”。程序运行界面如图所示。

实现上述功能的VB程序如下：

（1）程序窗体中“查找”按钮的对象名是_________。

（2）加框处代码有误，请改正；

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_load()

’获取一组正整数，按升序排列后依次存入

’数组a并显示在文本框Text1中,代码略

End Sub

Private Sub Cmd1_Click()

　        Dim i As Integer,j As Integer
　        Dim mid1 As Integer, mid2 As Integer

　   key = Val(Text2.Text)

i = 1 : j = n : flag = False

　        Do While i <= j And Not flag
　　          mid1 = Int(i + (j - i)/ 3)
　　          ____________①           
                 If key = a(mid1) Or key = a(mid2) Then
                       flag = True
                 ElseIf key < a(mid1) Then
                       ________②       

ElseIf key > a(mid2) Then

                       ________③       
                 Else
                       i = mid1 + 1
                       j = mid2 - 1

End If

Loop

If Then　　’改错________

　　　　   List1.AddItem Str(mid1)
            ElseIf flag Then
　　　　　List1.AddItem Str(mid2)   
            Else
                 List1.AddItem Str(j) + Str(i)

End If

　   End Sub

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

（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)的值为________。
（2） 请在划线处填入合适的代码。
Dim a(1 To 30) As String
Private Sub Form_Load()
‘读取本月每日气温数据，存储于数组 a 中并在列表框 List1 中显示，过程略。
End Sub
Private Sub Command1_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