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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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