【加試題】某地1900-1999年的平均降水量數(shù)據(jù)保存在數(shù)據(jù)庫(kù)中．現(xiàn)要求找出相鄰兩年年平均降水量變化（即本年度與上年度“年平均降水量”差值的絕對(duì)值）最大的年份區(qū)間．如果多個(gè)符合要求的年份區(qū)間，只輸入距今最近的．小吳為此編寫了VB程序，程序運(yùn)行時(shí)，單擊按鈕Command1后，在文本框Text1中輸出運(yùn)行結(jié)果．實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Dim w（1To 100）As Single'依次存儲(chǔ)1900-1999年的年平均降水量數(shù)據(jù)
Const n=100
Private Sub Form_Load（　?。?br />'本過(guò)程從數(shù)據(jù)庫(kù)中按1900-1999年依次讀取年平均降水量數(shù)據(jù)，并存儲(chǔ)在數(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.