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 IntegerReDim BeforeFilter(n + 1)
ReDim AfterFilter(n + 1)
sindata = MSComm1.Input    '读入输入缓冲区数据indata = Val(sindata(0)) '将接收到的二进制数转换成十进制数
v(ii) = indata
'v(ii) = (indata / 255) * 5 '幅度值
ii = ii + 1ProgressBar1.Max = n + 1         '进度显示
ProgressBar1.Value = iiIf 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
            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
            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)) Then
'            v(j) = (v(j - 1) + v(j + 1)) / 2
'        End If
'    Next j    For j = 0 To n
        BeforeFilter(j) = v(j)
    Next j    Call Filter(BeforeFilter(), n + 1)    For j = 0 To n
        v(j) = AfterFilter(j)
    Next j   For k = 1 To n
        f(k) = f0 + k * ff / 1000
        indata2 = v(k)
        'yy1 = (indata2 / 5) * Picture1.Height      '根据接收的数据计算y坐标值
        yy1 = (indata2 / 255) * Picture1.Height       '根据接收的数据计算y坐标值
        xx1 = (k / n) * Picture1.Width               '计算x坐标值
        Picture1.DrawWidth = 2
        Picture1.Line -(xx1, yy1), QBColor(13)     '画曲线
        
        If maxv0 < v(k) Then
            maxv0 = v(k)
            maxv = maxv0 / 51
            'maxv = maxv0
            Text1.Text = f(k)
            Text7.Text = maxv
            coun2 = coun1
        End If
        MaxFreq = MaxFreq + ff / 1000
   Next k
   
   ii = 0
   'maxv = 0        '重置最大幅度值
   Timer2.Enabled = False    '测量结束，关闭计时器
End IfMSComm1.Output = "b"          '发送一个接收应答信号If ii = 0 Then
  If Check1.Value = 1 And jj <= n2 Then
      Timer1.Enabled = True             '如果是多点测量,则打开计时器
      MSComm1.PortOpen = False   '关闭串口
      
      ampmax(jj) = CCur(Text7.Text)    '保存幅度峰值
      
      xx20 = (jj / n2) * Picture2.Width       '求出横坐标值
      xx21 = ((jj - 1) / n2) * Picture2.Width    '求出上一点的横坐标值
      
      yy2 = (Val(Text1.Text) - Val(Label31.Caption)) * Picture2.Height / (Val(Label36.Caption) - Val(Label31.Caption))  '求出纵坐标值
      yyy2(jj) = yy2           '保存此次纵坐标值以便下次画曲线时从此点开始
      Picture2.DrawWidth = 2
      If jj = 0 Then
      Picture2.Line -(xx20, yy2), QBColor(12)      '画共振频率变化曲线
      Else
      Picture2.Line (xx21, yyy2(jj - 1))-(xx20, yy2), QBColor(12)       '画共振频率变化曲线
      End If
      
      yy3 = Val(Text7.Text) * Picture2.Height / 5     '计算幅度峰值曲线纵坐标
      yyy3(jj) = yy3
      If jj = 0 Then
      Picture2.Line (0, 0)-(xx20, yy3), QBColor(1)      '画幅度峰值曲线
      Else
      Picture2.Line (xx21, yyy3(jj - 1))-(xx20, yy3), QBColor(1)       '画幅度峰值曲线
      End If
      
      If jj = 0 Then
'      tim(jj) = coun2 / 10
      tim(jj) = 0
      coun3 = coun1 - coun2                     '计算每一个共振频率点所对应的时间
      coun1 = 0
      Else
'      tim(jj) = tim(jj - 1) + coun3 / 10 + Val(Text6.Text) + coun2 / 10
      tim(jj) = Val(Text6.Text) * jj
      coun3 = coun1 - coun2
      coun1 = 0
      End If
      
    changef(jj) = Text1.Text             '存储共振频率变化值
    jj = jj + 1
    If jj = n2 + 1 Then
    jj = 0
    End If
  End If
  
  
End IfIf (ii = 0 And Check1.Value = 0) Or (Check1.Value = 1 And ii = 0 And jj = 0) Then    '判断测量是否结束
   
   
  If Not MSComm1.PortOpen = False Then  '关闭串口
     MSComm1.PortOpen = False
  End If
  
  Timer1.Enabled = False         '关闭计时器Text2.Enabled = True           '测量结束参数设置框有效
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Combo1.Enabled = True
Check1.Enabled = True
Command1.Enabled = False       '终止按键不可用
Start1.Enabled = True          '开始按键可用
Close1.Enabled = True      '退出按键可用
Save1.Enabled = True   '保存按键可用
Save2.Enabled = TrueEnd IfEnd Sub
在别人的电脑上运行就没有问题

解决方案 »

  1.   

    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 IntegerReDim BeforeFilter(n + 1)
    ReDim AfterFilter(n + 1)
    sindata = MSComm1.Input    '读入输入缓冲区数据indata = Val(sindata(0)) '将接收到的二进制数转换成十进制数
      

  2.   

    indata = Val(sindata(0)) '将接收到的二进制数转换成十进制数