Visual basic1)закусочная продает воду по 10 рублей за банку ,но не менее 5 банок одному...

Question

Visual basic
1)закусочная продает воду по 10 рублей за банку ,но не менее 5 банок одному покупателю. Если покупатель запросит более 5 банок ,выдать предупреждение ,в противном случае -сумму покупки
2)ввести годы рождения двух девочек.Определить старшую из них.

Нужно девушке помочь, а я на паскале сейчас мучу

Comments

предупреждение о том,что нельзя выдавать больше 5 банок в одни руки

---

Ну а в условии сказано, что не менее 5 банок в руки. Вот я про что.

---

Если не более 5, то тогда делаем так (см. решение)

---

Черт, хотел в решение добавить, но уже изменять не дает. Тогда напишу здесь

---

Sub zadacha1()Dim x As IntegerDo Until x > 0 And x < 6 x = InputBox("Сколько банок покупаете:") If x > 5 Then MsgBox ("Не более 5!")LoopMsgBox ("Стоимость покупки " & x * 10 & " руб")End Sub

Answer 1

Sub zadacha2()
Dim x, y As Integer
x = InputBox("Год рождения первой девочки:")
y = InputBox("Год рождения второй девочки:")
If x < y Then MsgBox ("Первая старше")
If x > y Then MsgBox ("Вторая старше")
If x = y Then MsgBox ("Одногодки")
End Sub