Объем прямоугольного параллелепипеда с длиной а, шириной b и высотой h может быть найден, как произведение площади основания ab на высоту, т.е. Vп=abh. Из этого объема нужно вычесть объемы четырех цилиндров. Объем цилиндра с диаметром основания D и высотой h находится по формуле Vц=πD²h/4. Окончательно V = Vп-4Vц = h(ab-πD²). Масса такой фигуры пли заданной плотности ρ может быть найдена по формуле m=ρV
В программе будем считать, что значения a,b,h,D,ρ заданы в ячейках листа рабочей книги MS Excel, Туда же будут выведены результаты. Для второго примера a,b будем вводить в диалоге, а ответ выдадим в окне сообщений. Это проиллюстрирует часть различных возможностей ввода и вывода данных в VBA.
Файл с рабочей книгой MS Excel 2003 дан во вложении. На всякий случай ниже приводятся коды, прописанные в кнопках.
Private Sub CommandButton1_Click() ' ввод a = Cells(1, 2).Value b = Cells(2, 2).Value h = Cells(3, 2).Value D = Cells(4, 2).Value rho = Cells(5, 2).Value 'расчет V = h * (a * b + Pi * D ^ 2) m = rho * V ' вывод Cells(7, 2) = V Cells(8, 2) = m End Sub
Private Sub CommandButton2_Click() a = CDbl(InputBox("Введите значение a")) b = CDbl(InputBox("Введите значение b")) x = Atn(a + b) y = Sin(a * b - 2) u = Log(x ^ 2 + y ^ 2 + 1) MsgBox "y=" + CStr(u) End Sub
Жил был в памяти маленький Бит. Он был очень одиноким и по этому сильно грустил, как то раз он пошел искать себе друзей. Идет он из микропроцессора древнего в страну памяти Оперативной по пути осматривая удевительный мир системной шины. Долго бродит Бит по шине, пока однажды не нашел Ячейку!Зайдя в ячейку Бит удивился, там было еще семь таких же одиноких малышей как и он сам (и всех их звали Бит LOL) и стали они дружить и стали звать их Байт!Но друзья подумали, а что, если есть еще такие же одинокие малыши, какими были раньше мы сами? Как они справятся с этой бренной жизьню в одиночку, без и заботы? И решили тогда они восьмером что-бы то нистало, найти всех одиноких Битов и обьеденить их, что-бы жить всем вместе годы...Спустя всё это время наши маленькие друзья все искали одиноких Битов, и их становилось всё больше, они обьеденялись в Байты, а затем и в Мегабайты.Однажды их количество перевалило за Гигабайт, но друзья не останавливались и всё искали и искали, искали и искали, пока... Нехватка системной памяти. Конец.
Из этого объема нужно вычесть объемы четырех цилиндров. Объем цилиндра с диаметром основания D и высотой h находится по формуле Vц=πD²h/4.
Окончательно V = Vп-4Vц = h(ab-πD²).
Масса такой фигуры пли заданной плотности ρ может быть найдена по формуле m=ρV
В программе будем считать, что значения a,b,h,D,ρ заданы в ячейках листа рабочей книги MS Excel, Туда же будут выведены результаты. Для второго примера a,b будем вводить в диалоге, а ответ выдадим в окне сообщений. Это проиллюстрирует часть различных возможностей ввода и вывода данных в VBA.
Файл с рабочей книгой MS Excel 2003 дан во вложении.
На всякий случай ниже приводятся коды, прописанные в кнопках.
Private Sub CommandButton1_Click()
' ввод
a = Cells(1, 2).Value
b = Cells(2, 2).Value
h = Cells(3, 2).Value
D = Cells(4, 2).Value
rho = Cells(5, 2).Value
'расчет
V = h * (a * b + Pi * D ^ 2)
m = rho * V
' вывод
Cells(7, 2) = V
Cells(8, 2) = m
End Sub
Private Sub CommandButton2_Click()
a = CDbl(InputBox("Введите значение a"))
b = CDbl(InputBox("Введите значение b"))
x = Atn(a + b)
y = Sin(a * b - 2)
u = Log(x ^ 2 + y ^ 2 + 1)
MsgBox "y=" + CStr(u)
End Sub