№ 1 Под кнопку на рабочем листе с номером варианта создать программу

№ 1.
Под кнопку на рабочем листе с номером варианта создать программу, которая запрашивает в окнах InputBox у пользователя данные, производит расчёт и выдаёт результат в MessageBox с поясняющими текстами, с единицами измерения, с пробелами между словами и числами, если необходимо в несколько строк. В вариантах предложены задачи на равномерное прямолинейное движение по формуле: l = v∙t,
где l – путь, v – скорость, t – время. Программа должна постоянно решать проблемы с единицами измерения, в которых заданы исходные данные и в которых требуется вывести результат.
Самолет пролетел расстояние l=9 тысяч километров за время t=7 часов 30 минут. Какова средняя скорость v самолета в метрах в секунду, в километрах в час?
Тест 1: l=9 тыс.км, t=7 час 30 мин, v≈333.3 м/с=1200 км/час.
Тест 2: l=4.2 тыс.км, t=3 час 20 мин, v=350 м/с=1260 км/час.

Текст программы:
Public Sub Bap_5_Задача_1()
Dim L As Single, t1 As Single, _
t2 As Single, t3 As Single, _
v1 As Single, V2 As Single
L = InputBox("Введи путь в км")
t1 = InputBox("Введите время: сколько часов")
t2 = InputBox("Введите время: сколько минут")
t3 = InputBox("Введите время: сколько секунд")
v1 = L / (t1 + t2 / 60 + t3 / 3600) * 1000 / 3600
V2 = L / (t1 + t2 / 60 + t3 / 3600)
MsgBox "Скорость самолета" & Chr(13) & v1 & _
"м/с. или " & V2 & "км/час.", , "Bap.5. Смирнова М.А."
End Sub

Результат теста 1

Результат теста 2

НатальяКА 4.6

Два высших образования: история и менеджмент организации (специализация-туризм). Есть опыт работы по обеим специальностям.

Нанять автора