Контрольная по программированию на VBA для Excel Задание 1 Второй вариант.

Задание 1 на тему «Оператор присваивания»

Найти d по задаваемым a, b, c.

Решение:

Sub задание1()
Dim a As Single, b As Single, с As Single, d As Single 'инициализируем переменную'
a = Val(InputBox(«Введите число в переменную a», «Ввод данных»)) 'вводим данные в переменную'
b = Val(InputBox(«Введите число в переменную в», «Ввод данных»)) 'вводим данные в переменную'
с = Val(InputBox(«Введите число в переменную с», «Ввод данных»)) 'вводим данные в переменную'
d = 0.04 * (((a ^ 2)) / 9.81) * (b / Sqr((b ^ 2) — (c ^ 2))) 'выполняем вычисления'
MsgBox «Результат d = » + Str(d) 'Выводим результат'
End Sub

172
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.