Форум программистов CodeGuru
25 Сентябрь 2018, 20:48:01 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: подскажите что нужно сделать, чтобы не было ошибки  (Прочитано 8294 раз)
0 Пользователей и 1 Гость смотрят эту тему.
koko
Новичок
*
Офлайн Офлайн

Сообщений: 5


Просмотр профиля
« : 16 Май 2010, 20:45:20 »

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
Записан
koko
Новичок
*
Офлайн Офлайн

Сообщений: 5


Просмотр профиля
« Ответ #1 : 16 Май 2010, 21:26:48 »

все, понял в чем моя ошибка
извените за созданную тему
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!