Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.05.2010, 21:00   #1
retype
 
Регистрация: 13.05.2010
Сообщений: 4
По умолчанию ошибка (не знаю что делать)...

vb6.0


Private Sub Command1_Click() 'Выполнение программы (Определение суммарного значения расхода ресурсов.2определение завода с наибольшим рассходом)
Dim m%, n%, a%(), k%, d%, s%, i%, j%, max%, sum%
n = InputBox("количество ресурсов") 'Ввод данных
m = InputBox("количество заводов")
ReDim a(1 To n, 1 To m)
Print
Randomize 'датчик случайных чисел
For i = 1 To n
For j = 1 To m
a(i, j) = Int(Rnd * 100)
Next j
Next i
For i = 1 To n
Print
For j = 1 To m
Print a(i, j);
Next j
Next i
d = InputBox("введите номер ресурса, для которого хотите определить завод с наибольшим расходом")
max = a(1, d)
For i = 1 To n
If a(i, d) > max Then
max = a(i, d)
End If
Next i
s = InputBox("введите номер завода, в котором хотите определить суммарное значение расхода всех ресурсов")
For j = 1 To m
k = k + a(j, s)
Next j
sum = k
Text1.Text = max
Text2.Text = sum
End Sub

пишет ошибку(строчку я выделил красным цветом):
Run-time error '9':
Subscript out of range

Последний раз редактировалось retype; 16.05.2010 в 21:03. Причина: уточняю название программы
retype вне форума Ответить с цитированием
Старый 16.05.2010, 21:26   #2
retype
 
Регистрация: 13.05.2010
Сообщений: 4
По умолчанию

все, понял в чем моя ошибка
извените за созданную тему
retype вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не знаю что делать дальше)))) LiptonICE Помощь студентам 1 15.05.2010 13:36
Посмотрите на прогу я не знаю что уже делать(((( Krumyura Общие вопросы C/C++ 1 18.03.2010 22:37
Не знаю что мне делать с этой прогой.... D[I]K Общие вопросы C/C++ 2 27.09.2009 19:02
Не работает Filter. Не знаю, что делать...Т_Т Zerofill БД в Delphi 2 02.06.2009 21:23