Автор Полина Мутовина задал вопрос в разделе Другие языки и технологии
Что нужно исправить в программе ( на Visual Basic),чтобы она удовлетворяла заданию? и получил лучший ответ
Ответ от Вадим Сухотин[гуру]
Для начала переделать вот что:
a = InputBox("Выберите тип задачи" + vbCrLf + "1-ввод марки" + vbCrLf + "2-ввод значения характеристики")
if a=1 then
b = InputBox("Выберите марку" + vbCrLf + "КС-2571" + vbCrLf + "КС-3562" + vbCrLf + "КС-4362" + vbCrLf + "КС-5363" + vbCrLf + "КС-6362" + vbCrLf + "КС-7361" + vbCrLf + "КС-8362")
else
c = InputBox("Выберите характеристику" + vbCrLf + "1-максимальная грузоподъёмность, т" + vbCrLf + "2-длина основной стрелы, м" + vbCrLf + "3 - минимальная скорость подъёма (опускания) крюка при работе основной стрелой, м/мин" + vbCrLf + "4 -максимальная скорость подъёма (опускания) крюка при работе основной стрелой, м/мин" + vbCrLf + "5 - минимальная частота вращения поворотной платформы, 1/мин" + vbCrLf + "6 - максимальная частота вращения поворотной платформы, 1/мин")
end if
Посмотрим, что дальше.
А дальше я вижу, что пропущены в нескольких местах команды End Select.
Источник: серое вещество