小明用 VB编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温，并存放在 ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框 List1 中，在文本框 Text1 中输入温度值，单击“统计”按钮 Command1，程序自动统计运行在该温度值及以上的最长连续天数，并显示在 Text3 中，同时在 Text2 中显示日期区间，运行界面如下图所示。
实现上述功能的 VB 代码如 下，在划线处填入合适代码。
Dim rq(1 To 100) As String ‘ 存放日期
Dim qw(1 To 100) As Integer ‘ 存放最高气温值
Dim n As Integer '总天数
Private Sub Form_Load()
' 读取数据库内容，其中日期数据存放在数组 rq 中，最高气温数据存放在 qw 中，第 i 个日期保存在 rq（i）中，对应的气温保存在 qw（i）中，并显示在列表框 List1 中，代码略
End Sub
Private Sub Command1_Click()
Dim ntempend As Integer ‘ 记录当前结束日期的下标
Dim max As Integer ‘ 记录最大连续天数
Dim nend As Integer ‘ 记录最大连续天数下的结束日期的下标
Dim ncount As Integer ‘ 统计连续天数
Dim tjqw As Integer ‘ 存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If __________
_①___________ Then
ncount = ncount + 1
ntempend =i
Else
ncount = 0
End If
If max < ncount Then
max = ncount
___________②___________ End If
Next
If max <> 0 Then Text2.Text = ________
___③___________ & "-" & rq(nend)
