Вывести агрегатное состояние воды в зависимости от заданной температуры - VB
Формулировка задачи:
Написать программу в VB: дано число - температура воды. Выведите "лед", если температура ниже нуля, "жидкость", если от температура от 0 до 100 и "пар", если выше 100.
Помогите пожалуйста!)
Решение задачи: «Вывести агрегатное состояние воды в зависимости от заданной температуры»
textual
Листинг программы
Private Sub Command1_Click()
Dim T
T = Val(InputBox("задайте температуру в градусах по С", "", "0"))
MsgBox Choose(1 - (T >= 0) - (T > 100), "Лед", "Жидкость", "Пар")
'или
MsgBox Switch(T < 0, "Лед", T <= 100, "Жидкость", 1, "Пар")
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д