Access计算公式应用-求圆的面积

用Access可以做简单的计算器。因为vba可以直接使用很多算术表达式。

有很多网友问到如何计算周长，计算面积，计算体积等的设计问题。

这里以计算圆的面积作为示例说明：

自定义一个计算圆面积的函数：

Public Function area(r As Single)
    Const pi = 3.14159  '定义π的固定值
    Dim s As Double
    s = pi * r * r      '面积计算公式
    MsgBox "半径为：" & r & " 的圆的面积为：" & s
End Function

在窗体中调用函数：在窗体中，建立一个文本框控件“text0” 和按钮“Command2”，按钮单击事件代码为：

Private Sub Command2_Click()
    area (Nz(Me.Text0, 0))
End Sub

效果如下图：