進(jìn)入2016年7月以來，浙江省氣溫連續(xù)高企，為了觀察氣溫的變化情況，小明用VB編寫了一個(gè)連續(xù)高溫天數(shù)的統(tǒng)計(jì)軟件．小明采集了杭州市7-8月的每日最高氣溫，并存放在ACCESS數(shù)據(jù)庫中．程序運(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 （　?。?br />'讀取數(shù)據(jù)庫內(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 max As Integer'記錄最大連續(xù)天數(shù)
Dim nend As Integer'記錄最大連續(xù)天數(shù)時(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       ① 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.