Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
NIkitaN
0 / 0 / 0
Регистрация: 20.12.2016
Сообщений: 18
1

Ошибка Subscript out of range

23.04.2017, 21:14. Просмотров 553. Ответов 2
Метки нет (Все метки)

Здравствуйте, пытаюсь решить задачу, но столкнулся с проблемой в виде ошибки Subscript out of range
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Base 1
Sub prim4()
 
Dim x(2) As Integer, y(2) As Integer
Dim sxo1, syo1 As Integer, sxp2, syp2 As Integer
Dim s As String
s = ""
sxo1 = 0
sxp2 = 0
syo1 = 0
syp2 = 0
 
    For i = 1 To 2
        x(i) = InputBox("X " + "(" + Str(i) + ")", "Ввод значений для массива")
        If x(i) < 0 Then sxo1 = sxo1 + 1 Else sxp2 = sxp2 + 1
    Next
 
 
    For i = 1 To 2
        y(i) = InputBox("Y " + "(" + Str(i) + ")", "Ввод значений для массива")
        If y(i) < 0 Then syo1 = syo1 + 1 Else syp2 = syp2 + 1
    Next
    s = ""
    If sxo1 > syp2 Then
        For i = 1 To 2
            If x(i) < 0 Then i = i * (-1)
            s = s & x(i) & " "
        Next
    MsgBox s
    Else
        For i = 1 To 2
            If y(i) > 0 Then i = i * (-1) 'НА ЭТОЙ СТРОКЕ ВЫДАЕТ ОШИБКУ
            s = s & x(i) & " "
        Next
    MsgBox s
    End If
       
            
End Sub
0
Миниатюры
Ошибка Subscript out of range  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2017, 21:14
Ответы с готовыми решениями:

Ошибка - Subscript out of range
Объясните пожалуйста, что я делаю не так? Хочу просто скопировать Лист1 в...

Ошибка subscript out of range
Доброго дня уважаемые светлые головы. По данному вопросу много тем, но я так...

Ошибка Subscript out of range
Зачастую вылетает ошибка.Пожайлуста помогите найти Sub Вычислить() Dim matr()...

Ошибка Subscript out of range при вычислениях
Sub Zadacha4() Dim a As Integer Dim b As Integer Dim x(1 To 7)...

Ошибка в сравнении двух массивов (Subscript out of range)
Уважаемые форумчане, здравствуйте, есть программа сравнения двух массивов...

2
Homarty
136 / 114 / 27
Регистрация: 12.02.2017
Сообщений: 308
23.04.2017, 23:57 2
Visual Basic
1
2
3
 ...If y(i)>0 Then i = i *(-1) 'НА ЭТОЙ СТРОКЕ ВЫДАЕТ ОШИБКУ
 
s = s & x(i)&" "
если y(i) будет больше нуля то i станет отрицательным, тогда что будет представлять x(i)?
0
NIkitaN
0 / 0 / 0
Регистрация: 20.12.2016
Сообщений: 18
24.04.2017, 00:17  [ТС] 3
Ой, вы правы, ошибка появляется раньше, при проверке x(i)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2017, 00:17

Ошибка при добавлении в массив - Subscript out of range
здравствуйте в коде при добавлении в массив получаю ошибку Sub s() Dim...

При запуске макроса выдается ошибка Subscript out of range
Здравствуйте! Прошу помощи в избавлении от ошибки. Сама я полный ноль в...

ошибка 9 - Subscript out of range - Индекс вне заданного диапазона
здравствуйте, не понимаю, эту строку MsgBox$ Trim(c(w)) отрабатывает,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru