Написать программу которая вычисляет стоимость покупки с учетом скидки - 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

Оцени полезность:

9 голосов , оценка 3.778 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы