Visual basic
5-9 класс
|
1)закусочная продает воду по 10 рублей за банку ,но не менее 5 банок одному покупателю. Если покупатель запросит более 5 банок ,выдать предупреждение ,в противном случае -сумму покупки
2)ввести годы рождения двух девочек.Определить старшую из них.
Нужно девушке помочь, а я на паскале сейчас мучу
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
предупреждение о том,что нельзя выдавать больше 5 банок в одни руки
Ну а в условии сказано, что не менее 5 банок в руки. Вот я про что.
Если не более 5, то тогда делаем так (см. решение)
Черт, хотел в решение добавить, но уже изменять не дает. Тогда напишу здесь
Sub zadacha1()
Dim x As Integer
Do Until x > 0 And x < 6
x = InputBox("Сколько банок покупаете:")
If x > 5 Then MsgBox ("Не более 5!")
Loop
MsgBox ("Стоимость покупки " & x * 10 & " руб")
End Sub
Другие вопросы из категории
последовательность из этих команд для кузнечика,которая позволит ему оказаться в точке с координатой 6
.
0 0 0 0 0 0....
1 1 1 1 1 1....
0 0 0 0 0 0....
0 1 0 1 0...
1 0 1 0 1....
0 1 0 1 0....
1 0 1 0 1....
Помогите пожалуйста! Буду очень благодарна! ;)))
округлите до двух цифр после запятой.
жесткий диск исправен. Пришедший специалист по обслуживанию сказал, что, скорее всего, с процессором все в порядке, а оперативная память неисправна. В результате оказалось, что двое из них сказали все верно, а третий - все неверно. Что же сломалось?
а) оперативная память
б) процессор
в) винчестер
г) процессор и оперативная память
Читайте также
Нужен код именно для Visual Basic
Сделать проэкт, в котором для введеного пользователем натурального показателя степеня n вычислялось значение 2^n