【加試題】某地2017.1-2017.2月的日期及日最高氣溫數(shù)據(jù)保存在數(shù)據(jù)庫中．現(xiàn)要求根據(jù)日最高氣溫，找出這兩個月中連續(xù)降溫的次數(shù)、連續(xù)最長降溫天數(shù)及其日期．小劉為此編寫了VB程序，程序運行時，單擊按鈕Command1后，在標(biāo)簽Label1和Label2上輸出運行結(jié)果．實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Dim a（1 To 59）As String'依次存儲2017.1-2017.2月的日期數(shù)據(jù)
Dim b（1 To 59）As Integer'依次存儲2017.1-2017.2月的日最高氣溫數(shù)據(jù)
Private Sub Form_Load（　?。?br />'本過程從數(shù)據(jù)庫中按2017.1-2017.2的日期次序，讀取日期和日最高氣溫數(shù)據(jù)，分別存儲在數(shù)組a和數(shù)組b中
'代碼略
End Sub
Private Sub Command1_Click（　?。?br />   Dim d As Integer,n As Integer
   Dim dmax As Integer,m As Integer
   n=0：d=1：dmax=1
   For i=2 To 59
       If Then'①
           d=1+1
       Else
           d=1
       EndIf
       If d=2 Then n=n+1
       If d＞dmax Then
           dmax=d
           m=i
       EndIf
   Next i
   Label1．Caption=“連續(xù)降溫次數(shù)“& Str（n）
   Label2．Caption=“連續(xù)最長降溫日期為：“& &“-“& Str（a（m）） &“持續(xù)天數(shù)為：“& Str（dmax）'②
End Sub
（1）①處應(yīng)改為

b（i-1）＞b（i）

b（i-1）＞b（i）

；
（2）②處應(yīng)改為

str（ a（m-dmax+1））或a（m-dmax+1））

str（ a（m-dmax+1））或a（m-dmax+1））

．