Run-time error '9': Subscript out of range - VBA (48856)

Формулировка задачи:

Выдаёт ошибку Run-time error '9': Subscript out uf range

                    Листинг программы
                
 
                        
                          
                    
Sub ConstTest()
    Dim A() As Integer
    Dim B() As Integer
    Dim i, N As Integer
            Randomize Timer
        For i = 1 To N
        A(i) = Int(-10 + Rnd(1) * 21)
        Cells(i, 1).Value = A(i)
            Next i
    B(1) = A(1)
        For i = 2 To N - 1
        B(i + 1) = B(i) + A(i + 1)
        Next i
 For i = 1 To N
 Cells(i, 3).Value = B(i)
End Sub

Решение задачи: «Run-time error '9': Subscript out of range»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Option Base 1
 
Sub ConstTest()
Const n = 5
Dim A(5) As Integer, s As Long
Dim B(5) As Integer
Dim i As Integer
Randomize Timer
For i = 1 To n
  A(i) = Int(-10 + Rnd(1) * 21)
  s = s + A(i)
  B(i) = s
  Cells(i, 1).Value = A(i)
  Cells(i, 3).Value = B(i)
Next i
End Sub

Оцени полезность:

5 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы