Посчитать объем цилиндра — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub vol()
Dim rad As Double ' радиус
Dim h As Double 'высота
Dim vol As Double ' объем
Const pi As Double = 3.1415926
  
rad = Range("A1")
h = InputBox("Введите высоту цилиндра")
vol = 'формула объема цилиндра
MsgBox "Объем = " & vol
  
  
End Sub

Похожие записи/страницы:

Leave a Comment