От чего возникает ошибка '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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д