【加試題】某地1900-1999年的平均降水量數(shù)據(jù)保存在數(shù)據(jù)庫中．現(xiàn)要求找出相鄰兩年年平均降水量變化（即本年度與上年度“年平均降水量”差值的絕對值）最大的年份區(qū)間．如果多個符合要求的年份區(qū)間，只輸入距今最近的．小吳為此編寫了VB程序，程序運行時，單擊按鈕Command1后，在文本框Text1中輸出運行結(jié)果．實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Dim w（1To 100）As Single'依次存儲1900-1999年的年平均降水量數(shù)據(jù)
Const n=100
Private Sub Form_Load（　　）
'本過程從數(shù)據(jù)庫中按1900-1999年依次讀取年平均降水量數(shù)據(jù)，并存儲在數(shù)組w中
'代碼略
End Sub
Private Sub Command1_Click（　?。?br />Dim i As Integer,imax As Integer
imax=
For i=3 To n
If Abs（w（i）-w（i-1））＞=  Then imax=i
Next i
Text1．Text=“年平均降水量變化最大的年份區(qū)間是“+Str（imax+1898）+“-“+Str（imax+1899）
End Sub.