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

實(shí)現(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ù)庫(kù)內(nèi)容，其中日期數(shù)據(jù)存放在數(shù)組 rq 中，最高氣溫?cái)?shù)據(jù)存放在 qw 中，第 i 個(gè)日期保存在 rq（i）中，對(duì)應(yīng)的氣溫保存在 qw（i）中，并顯示在列表框 List1 中，代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim ntempend As Integer‘記錄當(dāng)前結(jié)束日期的下標(biāo)
Dim max As Integer‘記錄最大連續(xù)天數(shù)
Dim nend As Integer‘記錄最大連續(xù)天數(shù)下的結(jié)束日期的下標(biāo)
Dim ncount As Integer‘統(tǒng)計(jì)連續(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）