Написать программу которая вычисляет стоимость покупки с учетом скидки - VB
Формулировка задачи:
Скидка 1% предоставляется, если сумма покупки больше 300 рублей, 2% - если сумма больше 500 рублей, 3% - если сумма покупки больше 1000 рублей. Информация о предоставленной скидке (процент и величина) должна быть выведена в диалоговом окне.
Решение задачи: «Написать программу которая вычисляет стоимость покупки с учетом скидки»
textual
Листинг программы
sub form_click
dim S as double,p as byte
s=inputbox("Введите сумму")
select case s
case is>1000:p=3
case is>500:p=2
case is>300:p=1
end select
msgbox"Величина = " & format(s*p/100,"0.00"),,"Процент = " & p
end sub