Question

Вычислить площадь круга и длины окружности при известном радиусе в visual basic for application. С использованием inputBox и MsgBox

Answer 1

Sub aaa()
    r = CDbl(InputBox("Введите радиус"))
    Pi = 4 * Atn(1)
    s = Pi * r ^ 2
    c = 2 * Pi * r
    MsgBox "S=" + CStr(s) + ", C=" + CStr(c), vbOKOnly
End Sub