高手！帮我看看那里出错了，说下标出界，本人不懂程序，用一个解压缩程序改的

Question

Private Sub CmdEncrypt_Click()
    Dim temp(8) As Integer
    Dim CurPos As Long
    Dim j As Integer
    Dim a As Integer
    Dim b As Integer
    Dim r As Integer
    Dim l As Integer
    Dim y As Integer
    Dim I As Integer
    Dim X As Integer    
    CD.ShowOpen
    filename = CD.filename
    filename2 = "2.txt"
    CurPos = 0
    
    If Len(filename) = 0 Then Exit Sub    
    StatusBar.SimpleText = "Start Encoding..."
    Open filename For Binary As #1
    ReDim databuff(LOF(1) - 1)
    Get #1, , databuff
    Close #1
    I = 0
    j = 0   
  While I < UBound(databuff)
      If I = 0 Then
          l = databuff(0) * 16 * 16 + databuff(1) - 1
          ReDim addbuff(l) As Byte
          I = 2
      Else
          For r = 0 To 8
              temp(r) = 1
          Next
          
          If j < UBound(addbuff) Then
               
               y = Int(databuff(I))
               If y >= 128 Then
                    y = (y - 128)
                    temp(7) = 0
               End If
               
               If y >= 64 Then
                    y = (y - 64)
                    temp(6) = 0
               End If
               If y >= 32 Then
                    y = (y - 32)
                    temp(5) = 0
               End If
               If y >= 16 Then
                    y = (y - 16)
       
                    temp(4) = 0
               End If
               If y >= 8 Then
                    y = (y - 8)
                    temp(3) = 0
               End If
               If y >= 4 Then
                    y = (y - 4)
                    temp(2) = 0
               End If
               If y >= 2 Then
                    y = (y - 2)
                    temp(1) = 0
               End If
               If y >= 1 Then
                    y = (y - 1)
                    temp(0) = 0
               End If
               I = (I + 1)
               For X = 0 To 8                 If temp(X) = 0 Then
                   addbuff(j) = databuff(I)
                   j = (j + 1)
                   I = (I + 1)
                 End If
                 
                 If temp(X) = 1 Then
                    
                    If j < 4079 And databuff(I + 1) > 240 Then
                       a = databuff(I) - 238
                       
                       CurPos = Int(a)
                       b = databuff(I + 1) - Int(databuff(I + 1) / 16) * 16 + 3
                       
                    Else
              
                      a = databuff(I) + Int(databuff(I + 1) / 16) * 16 * 16 + 12
                      a = Int(a)
                      b = databuff(I + 1) - Int(databuff(I + 1) / 16) * 16 + 3
                    End If
                    For r = 0 To b
                       addbuff(j) = addbuff(CurPos)
                       CurPos = CurPos + 1
                    Next
                    I = I + 1
                 End If                Next
        
          
           End If
        End If
    Wend
    Open filename2 For Binary As #1
    Put #1, , addbuff
    Close #1
    StatusBar.SimpleText = "over"
    
End Sub

Answer 1

For r = 0 To 8
     temp(r) = 1
Next
这里错了，这个提示是说你定义的数组在使用的时候越界了，比如说你上面的程式中定义数组temp（8）实际上他是从0-7  八个变量，你用temp(8)去使用变量，就会说你说下标出界，不知道这么解释明白了没有呵呵

Answer 2

错在 ReDim addbuff(l) As Byte
l=-1了

Answer 3

同意战神,在VB中定义数组temp(8)实际他是0-8九个变量,所以梳分头的鱼错了

Answer 4

如果小标小于0了，只能Redim(-1 to -1)而不能定义成Redim(-1),否则将出现下标越界