Разработайте алгоритм и программу решения задачи для начисления торговой скидки. Вводится сумма покупок, программа рассчитывает
сумму к оплате с учетом того, что при покупке товара на сумму от 500 до 1000 руб. Разработать алгоритм и программу на языке VBA для решения задачи по вариантам.
<span>1. </span><span>Private Sub CommandButton1_Click() </span><span> <span>Dim n, s As Single </span> <span>n = Val(TextBox1.Text) </span> <span>If (n < 500) Then s = n </span> <span>If ((n >= 500) And (n <= 1000)) Then s = n
* 0.95 </span> <span>If ((n > 1000) And (n <= 10000)) Then s =
n * 0.93 </span> <span>If (n > 10000) Then s = n * 0.91 </span> <span>MsgBox (s) </span> <span>End Sub</span></span>