Народ помогите найти ошибку в коде, почему он не работает я в этом профан просто

@Alex77755 · Регистрация: 13.02.2009

Студворк — интернет-сервис помощи студентам

К ЗАВТРЕШНЕМУ УЖЕ НАДО

Так что ты колотишся так рано? Времени ещё вагон!!!

@Alex77755 · 13.04.2011, 14:22 **[ТС]**

это не является ошибкой и не влияет на вычисления.

Но иногда влияет на оценку

@Shahidos · 13.04.2011, 14:27

сотрел просто не понял

Добавлено через 4 минуты
Next i
'поиск максимального востребованного изделия
Let Mx = otpucheno(1, 1)
Let ind = 1
For i = 1 To 10
For j = 1 To 2
If Mx < otpucheno(i, j) Then Mx = otpucheno(i, j)
End If

ему снова не нравится тут что то

@Alex77755 · 13.04.2011, 14:28 **[ТС]**

Visual Basic
1
2
If Mx < otpucheno(i, j) Then Mx = otpucheno(i, j)
End If

Ты на каждой такой строке будешь задавать один и тот же вопрос?
Отвечал уже

@Shahidos · 13.04.2011, 14:30

так яж говарю я не понял что там не так,
извиняюсь

@Alex77755 · 13.04.2011, 14:32 **[ТС]**

Сообщение от Alex77755

Надио так:

Visual Basic
1
2
3
If Mx < otpucheno(i, j) Then
 Mx = otpucheno(i, j)
End If

Или так

Visual Basic
1
If Mx < otpucheno(i, j) Then Mx = otpucheno(i, j)

Цитирую
Если после Then ничего нет - End If нужен. Иначе - нет

@Shahidos · 13.04.2011, 14:44

А понял, я там пропустил что если во втором варианте то там без End If.

А это так должно выглядить?

If ind = 1 Then izdelie(1 To 20)
If ind = 2 Then izdelie(2 To 20)
If ind = 3 Then izdelie(3 To 20)
If ind = 4 Then izdelie(4 To 20)
If ind = 5 Then izdelie(5 To 20)
If ind = 6 Then izdelie(6 To 20)
If ind = 7 Then izdelie(7 To 20)
If ind = 8 Then izdelie(8 To 20)
If ind = 9 Then izdelie(9 To 20)
If ind = 10 Then izdelie(10 To 20)

Добавлено через 8 минут
Пишет теперь что Statement invalid outside Type block
а как это исправить? и там не (1 To 20) а (1 To 10)

@Busine2009 · 13.04.2011, 15:10

Shahidos,
объявите, как переменную, а не как массив:

Visual Basic
1
Dim izdelie As String

А так поместите туда изделие:

Visual Basic
1
If ind = 1 Then izdelie = ”Болт”

И ещё вот это добавьте:

Visual Basic
1
2
3
4
    If Mx < otpucheno(i, j) Then
        Mx = otpucheno(i, j)
        ind = i
    End If

Добавлено через 2 минуты
Отсюда

Сообщение от Shahidos

Let ind = 1

удалите Let - в переменные можно вот так помещать данные (предполагаю, что Let что-то старое):

Visual Basic
1
ind = 1

Остальное проанализировать тяжело, т.к. нет файла Excel.

@Alex77755 · 13.04.2011, 15:23 **[ТС]**

Visual Basic
1
Dim izgotovleno(10, 2) As Integer

верхний предел заявлен 2

Visual Basic
1
2
For j = 1 To 5 Step 4
Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j)

а присвоение четвёртому
Содрал у кого-то код, а вдуматься не хочет

@Shahidos · 13.04.2011, 15:32

Я и не говарю что он мой, просто очень сложно освоить за 2 недели то что остальные год проходили.

@Alex77755 · 13.04.2011, 15:36 **[ТС]**

Не по теме:

Так надо было и проходить как все - год!
Или, может быть, даже рановато кинулся - целых две недели ещё!
Вполне можно было бы ещё недельку подождать!

@Shahidos · 13.04.2011, 15:43

В любом случие большое вам спасибо.

@Alex77755 · 13.04.2011, 17:21 **[ТС]**

Busine2009,

предполагаю, что Let что-то старое

Я такого тоже не встречал ещё.
Но гугля говорит, что не очень оно старое
Хотя так пока не понял разницы. Когда и зачем его применять

@Shahidos · 13.04.2011, 18:35

Сообщение от Alex77755

Visual

не пойму как исправить ошибку

Добавлено через 29 секунд

Сообщение от Alex77755

1
2 For j = 1 To 5 Step 4
Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j)

Не пойму как исправить ошибку

Добавлено через 25 минут
Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j) в чём тут ошибка и как её исправить?

@Alex77755 · 13.04.2011, 18:45 **[ТС]**

Надо читать ответы!
Я уже писал на почту:
Cells нада чтобы была напЫсано латиницей
Скопируй из кода выше(который уже отработал) и замени.
Там встречаются русские С и е

@Shahidos · 13.04.2011, 18:51

перепечатал я всё это латиницей и копировать пробовал а в итоге то же самое

Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j)

@Alex77755 · 13.04.2011, 19:52 **[ТС]**

Ты вообще ответы читаешь?
Зачем писать одно и то же?

Dim izgotovleno(10, 2) As Integer
верхний предел заявлен 2
Код Visual Basic1
2 For j = 1 To 5 Step 4
Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j)

а присвоение четвёртому

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 14:27
	сотрел просто не понял Добавлено через 4 минуты Next i 'поиск максимального востребованного изделия Let Mx = otpucheno(1, 1) Let ind = 1 For i = 1 To 10 For j = 1 To 2 If Mx < otpucheno(i, j) Then Mx = otpucheno(i, j) End If ему снова не нравится тут что то 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 14:30
	так яж говарю я не понял что там не так, извиняюсь 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 14:44
	А понял, я там пропустил что если во втором варианте то там без End If. А это так должно выглядить? If ind = 1 Then izdelie(1 To 20) If ind = 2 Then izdelie(2 To 20) If ind = 3 Then izdelie(3 To 20) If ind = 4 Then izdelie(4 To 20) If ind = 5 Then izdelie(5 To 20) If ind = 6 Then izdelie(6 To 20) If ind = 7 Then izdelie(7 To 20) If ind = 8 Then izdelie(8 To 20) If ind = 9 Then izdelie(9 To 20) If ind = 10 Then izdelie(10 To 20) Добавлено через 8 минут Пишет теперь что Statement invalid outside Type block а как это исправить? и там не (1 To 20) а (1 To 10) 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 15:32
	Я и не говарю что он мой, просто очень сложно освоить за 2 недели то что остальные год проходили. 0

@Alex77755
	13.04.2011, 15:36 [ТС]
	Не по теме: Так надо было и проходить как все - год! Или, может быть, даже рановато кинулся - целых две недели ещё! Вполне можно было бы ещё недельку подождать! 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 15:43
	В любом случие большое вам спасибо. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.04.2011, 18:45 [ТС]
	Надо читать ответы! Я уже писал на почту: Cells нада чтобы была напЫсано латиницей Скопируй из кода выше(который уже отработал) и замени. Там встречаются русские С и е 0

@Shahidos 0 / 0 / 0 Регистрация: 13.04.2011 Сообщений: 15
	13.04.2011, 18:51
	перепечатал я всё это латиницей и копировать пробовал а в итоге то же самое Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j) 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.04.2011, 19:52 [ТС]
	Ты вообще ответы читаешь? Зачем писать одно и то же? Dim izgotovleno(10, 2) As Integer верхний предел заявлен 2 Код Visual Basic1 2 For j = 1 To 5 Step 4 Sheets("Результат").Cells(7 + i, 4 + j) = izgotovleno(i, j) а присвоение четвёртому 0