Разработайте алгоритм и программу решения для начисления - вопрос №6770159 от alisiakuzmur 17.04.2023 06:34

Question

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

alisiakuzmur · Answer

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