Run-time error '9': Subscript out of range - VBA (48856)
Формулировка задачи:
Выдаёт ошибку Run-time error '9': Subscript out uf range
Решение задачи: «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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д