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

Question

Информатика

Lyaopkak

6 год назад

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

ОТВЕТЫ

Епифанович

Jul 7, 2019

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

183