【加试题】某地2017.1-2017.2月的日期及日最高气温数据保存在数据库中．现要求根据日最高气温，找出这两个月中连续降温的次数、连续最长降温天数及其日期．小刘为此编写了VB程序，程序运行时，单击按钮Command1后，在标签Label1和Label2上输出运行结果．实现上述功能的VB代码如下，但加框处代码有错，请改正．
Dim a（1 To 59）As String'依次存储2017.1-2017.2月的日期数据
Dim b（1 To 59）As Integer'依次存储2017.1-2017.2月的日最高气温数据
Private Sub Form_Load（　　）
'本过程从数据库中按2017.1-2017.2的日期次序，读取日期和日最高气温数据，分别存储在数组a和数组b中
'代码略
End Sub
Private Sub Command1_Click（　　）
   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=“连续降温次数“& Str（n）
   Label2．Caption=“连续最长降温日期为：“& &“-“& Str（a（m）） &“持续天数为：“& Str（dmax）'②
End Sub
（1）①处应改为

b（i-1）＞b（i）

b（i-1）＞b（i）

；
（2）②处应改为

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

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

．