Задание на select case

@vlaadislove · Регистрация: 12.12.2012

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

Задание 3. Разветвленная структура с использованием операторов выбора Select Case

1. Для ИЗ2 написать программу_ИЗ2 в виде процедуры без параметров (управляющая программа), в которой столбец Результат заполняется по столбцу Дано с использованием оператора Select Case
2. использовать подпрограммы:
♦ для ввода исходных данных;
♦ для проверки условий, использовать Select Case;
♦ результаты разместить в таблицу на рабочем листе Ms Exсel;

3. Разработать контрольные примеры для ИЗ2 и отладить программу на данных контрольных примеров.
4. Создать управляющий объект для вызова программы_ИЗ2 (кнопка на рабочем листе, графический объект…)

А вот само задание:

Срок хранения Коэф.уценки
меньше 5 дней 5%
между 5 и 20 днями 10%
больше 20 дней 30%

Заранее спасибо

OldFedor · 09.04.2013, 21:00

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

А вот само задание:

VB.NET
1
2
3
4
5
Select case Day
case Day<5:x=5
case 5<Day<25:x=10
case Day>20:x=30
end select

Удачи.

@vlaadislove · 09.04.2013, 21:04 **[ТС]**

Спасибо, а это точно все, что требуется в задании?

OldFedor · 09.04.2013, 21:24

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

Спасибо, а это точно все, что требуется в задании?

Не смотрел. Это просто код для Select case.
И хотя он на .net, будет работать и у Вас.

@Апострофф · 09.04.2013, 21:42

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

И хотя он на .net, будет работать и у Вас.

Не будет, слишком много не от VBA.

Visual Basic
1
2
3
4
5
6
7
Function qqq(day)
Select Case day
Case Is < 5: qqq = 5
Case Is < 20: qqq = 10
Case Else: qqq = 30
End Select
End Function

OldFedor · 09.04.2013, 21:43

Сообщение от Апострофф

Не будет, слишком много не от VBA.

Проверил. Работает.

Visual Basic
1
2
3
4
5
6
Dim Day As Integer, x As Single
Select Case Day
Case Day < 5: x = 0.5
Case 5 < Day < 25: x = 0.1
Case Day > 20: x = 0.3
End Select

И в чем разница? Только в 5 < Day < 25? Да, левая граница лишняя.

@Апострофф · 09.04.2013, 22:04

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

Проверил. Работает.

Хорошо проверили?
И Day задавали?
И в VBA именно?
Осмелюсь не согласиться

OldFedor · 09.04.2013, 22:13

Сообщение от Апострофф

Осмелюсь не согласится

Много ошибок из-за торопливости.
Правда Ваша, Апострофф.
Искренне прошу извинить.

Но если изменить Day - все ОК.

@Апострофф · 09.04.2013, 22:23

OldFedor, ну не может VB переварить это: 5 < Day < 25, тем более в Select Case, у которого свои хитрости. Что он может, я показал

@Казанский · 09.04.2013, 22:37

Не по теме:

наверно

Visual Basic
1
Case Is <= 20: qqq = 10

@vlaadislove · 10.04.2013, 00:00 **[ТС]**

Большое спасибо, ребят!

OldFedor · 10.04.2013, 09:05

Сообщение от Апострофф

OldFedor, ну не может VB переварить это

Еще раз проверил на VBA, а не на net - Вы правы Апострофф. Нужен Is
Всегда открыт net и если что, я туда.
Вот и опарафинился. Мне урок.

Сообщение от Казанский

Не по теме:

Спасибо, Казанский. Верно.

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@vlaadislove 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 50

	Задание на select case 09.04.2013, 20:07. Показов 2662. Ответов 11 Метки нет (Все метки) Задание 3. Разветвленная структура с использованием операторов выбора Select Case 1. Для ИЗ2 написать программу_ИЗ2 в виде процедуры без параметров (управляющая программа), в которой столбец Результат заполняется по столбцу Дано с использованием оператора Select Case 2. использовать подпрограммы: ♦ для ввода исходных данных; ♦ для проверки условий, использовать Select Case; ♦ результаты разместить в таблицу на рабочем листе Ms Exсel; 3. Разработать контрольные примеры для ИЗ2 и отладить программу на данных контрольных примеров. 4. Создать управляющий объект для вызова программы_ИЗ2 (кнопка на рабочем листе, графический объект…) А вот само задание: Срок хранения Коэф.уценки меньше 5 дней 5% между 5 и 20 днями 10% больше 20 дней 30% Заранее спасибо 0

@vlaadislove 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 50
	09.04.2013, 21:04 [ТС]
	Спасибо, а это точно все, что требуется в задании? 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	09.04.2013, 22:23
	OldFedor, ну не может VB переварить это: 5 < Day < 25, тем более в Select Case, у которого свои хитрости. Что он может, я показал 2

@vlaadislove 1 / 1 / 0 Регистрация: 12.12.2012 Сообщений: 50
	10.04.2013, 00:00 [ТС]
	Большое спасибо, ребят! 0