进入2016年7月以来，浙江省气温连续高企，为了观察气温的变化情况，小明用VB编写了一个连续高温天数的统计软件．小明采集了杭州市7-8月的每日最高气温，并存放在ACCESS数据库中．程序运行时，读取日期和最高气温并显示在列表框List1中，在文本框Text1中输入温度值，单击“统计”按钮Command1，程序自动统计运行在该温度值以上的最长连续天数，并显示在Text3中，同时在Text2中显示日期区间，运行界面如下图所示．

实现上述功能的VB代码如 下，在横线处填入合适代码．
Dim rq（1To 100）As String'存放日期
Dim qw（1To 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 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=1To n
If       ① Then
ncount=ncount+1
Else
ncount=0
End If
If max＜ncount Then
max=ncount
       ②
End If
Next
If max＜＞0Then Text2．Text=       ③ &“-“& rq（nend）
Text3．Text=Str（max）
End Sub.