小明用 VB編寫了一個連續(xù)高溫天數(shù)的統(tǒng)計軟件。小明采集了金華市 7-8 月的每日最高氣溫，并存放在 ACCESS數(shù)據(jù)庫中。程序運行時，讀取日期和最高氣溫并顯示在列表框 List1 中，在文本框 Text1 中輸入溫度值，單擊“統(tǒng)計”按鈕 Command1，程序自動統(tǒng)計運行在該溫度值及以上的最長連續(xù)天數(shù)，并顯示在 Text3 中，同時在 Text2 中顯示日期區(qū)間，運行界面如圖所示。

實現(xiàn)上述功能的 VB 代碼如 下，在橫線處填入合適代碼。
Dim rq（1To 100）As String‘存放日期
Dim qw（1To 100）As Integer‘存放最高氣溫值
Dim n As Integer'總天數(shù)
Private Sub Form_Load

（　?。?/div>

（　?。?/div>
'讀取數(shù)據(jù)庫內(nèi)容，其中日期數(shù)據(jù)存放在數(shù)組 rq 中，最高氣溫數(shù)據(jù)存放在 qw 中，第 i 個日期保存在 rq（i）中，對應的氣溫保存在 qw（i）中，并顯示在列表框 List1 中，代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim ntempend As Integer‘記錄當前結(jié)束日期的下標
Dim max As Integer‘記錄最大連續(xù)天數(shù)
Dim nend As Integer‘記錄最大連續(xù)天數(shù)下的結(jié)束日期的下標
Dim ncount As Integer‘統(tǒng)計連續(xù)天數(shù)
Dim tjqw As Integer‘存放輸入的溫度
tjqw=Val（Text1．Text）
ncount=0
max=0
For i=1To n
If ①

qw（i）＞=tjqw

qw（i）＞=tjqw

 Then
ncount=ncount+1
ntempend=i
Else
ncount=0
End If
If max＜ncount Then
max=ncount
②

nend=ntempend

nend=ntempend

End If
Next
If max＜＞0Then Text2．Text=③

rq（nend-max+1）

rq（nend-max+1）

&“-“& rq（nend）