Sub AreaOfCircle()
Const PI As Single = 3.14
r = Val(InputBox("请输入半径"))
Range("A1").Value = r
Dim area
area = PI * r ^ 2
MsgBox "圆的面积" & area
End Sub
Const PI As Single = 3.14
r = Val(InputBox("请输入半径"))
Range("A1").Value = r
Dim area
area = PI * r ^ 2
MsgBox "圆的面积" & area
End Sub