Sub List ()
Const BoxTitle = "Площадь круга"
Dim Radius As Single, Temp As String
Temp = InputBox("Введите радиус " & Chr(13) & "круга", BoxTitle)
Radius = CSng(Temp)
CircleArea = Pi * Radius * Radius
MsgBox CircleArea, vbInformation + vbOKCancel, BoxTitle
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|