От чего возникает ошибка 'Runtime error '9': Subscript out of range' - VB

Узнай цену своей работы

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

При каких обстоятельствах может возникнуть ошибка 'Runtime error '9': Subscript out of range'

Решение задачи: «От чего возникает ошибка 'Runtime error '9': Subscript out of range'»

textual
Листинг программы
Dim R, G As String
Dim P(1 To 100) As Integer
Dim i, j, D As Integer
Dim S(1 To 100) As String
R = ("У кожного своя доля і свій шлях широкий: той мурує, той руйнує, той не ситим оком за край світа зазирає...")
D = Len(R)
j = 1
For i = 1 To D
G = Mid(R, i, 1)
If G = " " Or G = "." Then P(j) = i
j = j + 1
Next i
 
i = 2
S(1) = Mid(R, 1, P(1) - 1)
While i <= j - 1
S(i) = Mid(R, P(i - 1) + 1, P(i) - 1)
Wend
 
i = 1
While i <= j - 1
MsgBox S(i)
Wend
End Sub

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


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

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

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