Разработайте алгоритм и программу решения задачки для начисления торгашеской скидки. Вводится

Разработайте алгоритм и программку решения задачки для начисления торговой скидки. Вводится сумма покупок, программка рассчитывает сумму к оплате с учетом того, что при покупке продукта на сумму от 500 до 1000 руб.
Создать метод и программку на языке VBA для решения задачки по вариантам.

Задать свой вопрос
1 ответ

1.     Private Sub CommandButton1_Click() 
Dim n, s As Single 
n = Val(TextBox1.Text) 
If (n lt; 500) Then s = n 
If ((n gt;= 500) And (n lt;= 1000)) Then s = n * 0.95 
If ((n gt; 1000) And (n lt;= 10000)) Then s = n * 0.93 
If (n gt; 10000) Then s = n * 0.91 
MsgBox (s) 
End Sub

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт