学进去

某地1900-1999年的平均降水量数据保存在数据库中。现要求找出相邻两年年平均降水量变化（即本年度与上年度“年平均降水量”差值的绝对值）最大的年份区间。如果多个符合要求的年份区间，只输入距今最近的。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出运行结果。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim w(1 To 100) As Single '依次存储1900-1999年的年平均降水量数据
Const n = 100
Private Sub Form_Load()
'本过程从数据库中按1900-1999年依次读取年平均降水量数据，并存储在数组w中
'代码略
End Sub
Private Sub Command1_Click()
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 = "年平均降水量变化最大的年份区间是" + Str(imax + 1898) + "-" + Str(imax + 1899)
End Sub