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

Answer 2

А можно вместо CDbl другое написать?

Answer 3

Зачем?

Answer 4

Ну напишите cSng, точность расчета ниже будет. Можете написать древнючее Val