|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.05.2010, 21:00 | #1 |
Регистрация: 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) 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 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. Причина: уточняю название программы |
16.05.2010, 21:26 | #2 |
Регистрация: 13.05.2010
Сообщений: 4
|
все, понял в чем моя ошибка
извените за созданную тему |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не знаю что делать дальше)))) | 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 |