声明π为3.1415926的变量

来源：百度知道 编辑：UC知道 时间：2024/05/31 17:35:29
代入式子 计算圆

Option Explicit
Private Const Pi As Double = 3.141592654
Dim D As Single
Private Sub Form_Load()
D = InputBox("INPUT D=", "输入直径")
MsgBox ("周长=") & D * Pi
MsgBox ("圆面积=") & D ^ 2 * Pi / 4
End Sub