VB中提示实时异常上标越界9什么有关问题啊小弟我是新手

VB中提示实时错误下标越界9什么问题啊！我是新手
Private Sub MSComm1_OnComm()

Static maxv               '存储最大幅度值

ReDim Preserve f(n)            '存储频率值
ReDim Preserve v(n)            '存储幅度值
ReDim Preserve changef(n2)           '存储共振频率变化值
ReDim Preserve yyy2(n2)        '画曲线时保修上一次的纵坐标
ReDim Preserve yyy3(n2)
ReDim Preserve ampmax(n2)      '用于保存幅度峰值
ReDim Preserve tim(n2)         '用于记录共振频率时的时间
Dim j As Integer
Dim k As Integer

ReDim BeforeFilter(n + 1)
ReDim AfterFilter(n + 1)


sindata = MSComm1.Input    '读入输入缓冲区数据

indata = Val(sindata(0)) '将接收到的二进制数转换成十进制数
v(ii) = indata
'v(ii) = (indata / 255) * 5 '幅度值
ii = ii + 1

ProgressBar1.Max = n + 1         '进度显示
ProgressBar1.Value = ii

If ii = n + 1 Then       '判断步进次数是否已到
    ProgressBar1.Visible = False   '关闭测量进度条
    maxv0 = 0
    
'    For j = 2 To n - 2
'        If (v(j) - v(j - 1) >= 0) Or (v(j - 1) - v(j - 2) >= 0) Or (v(j) - v(j + 1) >= 0) Or (v(j + 1) - v(j + 2) <= 0) Or _
'            (v(j) - v(j - 1) >= 0) Or (v(j - 1) - v(j - 2) <= 0) Or (v(j) - v(j + 1) >= 0) Or (v(j + 1) - v(j + 2) >= 0) Then
'            v(j) = (v(j - 1) + v(j + 1)) / 2
'        End If
'    Next j

    For j = 2 To n - 2
        If ((v(j) - v(j - 1) >= 0) And (v(j - 1) - v(j - 2) >= 0) And (v(j) - v(j + 1) >= 0) And (v(j + 1) - v(j + 2) <= 0)) Or _
            ((v(j) - v(j - 1) >= 0) And (v(j - 1) - v(j - 2) <= 0) And (v(j) - v(j + 1) >= 0) And (v(j + 1) - v(j + 2) <= 0)) Or _
            ((v(j) - v(j - 1) >= 0) And (v(j - 1) - v(j - 2) <= 0) And (v(j) - v(j + 1) >= 0) And (v(j + 1) - v(j + 2) >= 0)) Then