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

Разработать алгоритм и программу на языке VBA для решения задачи по вариантам.

Question

Информатика

Ануша

8 апреля, 10:20

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

Разработать алгоритм и программу на языке VBA для решения задачи по вариантам.

+5

Ответы (1)

Знаете ответ?

Филюша · Answer 1

1. Private Sub CommandButton1_Click ()

Dim n, s As Single

n = Val (TextBox1. Text)

If (n < 500) Then s = n

If ((n > = 500) And (n < = 1000)) Then s = n * 0.95

If ((n > 1000) And (n < = 10000)) Then s = n * 0.93

If (n > 10000) Then s = n * 0.91

MsgBox (s)

End Sub