Баннер
Баннер

Организация ввода и вывода сообщений - Пример 8

Оглавление
Организация ввода и вывода сообщений
Структура процедуры
Использование операторов
Объявления
Оператор присваивания
Выполняемые операторы
Запись нескольких операторов
Опции MsgBox
MsgBox как функция
Примеры решения задач
Пример 2.
Пример 3
Пример 4
Пример 5
Пример 6
Пример 7
Пример 8
Все страницы

Пример 8. Вычислить гипотенузу прямоугольного треугольника по двум катетам.

Решение.

Sub гипотенуза()

Dim a, b, c, p, s As Double

a = Val(InputBox("Введите a="))

b = Val(InputBox("Введите b="))

c = Sqr(a ^ 2 + b ^ 2)

MsgBox ("c=" + Str(c))

End Sub


<< Предыдущая - Следующая



Читайте также:

Добавить комментарий


Защитный код
Обновить
Разделы



  • Одежда и изделия из льна. Дисконтные магазины одежды.
    fiesta-on.ru
  • Каталог интервью со спортсменами и тренерами. Инструкции, положения.
    elteco.ru
Главная VBA Организация ввода и вывода сообщений