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

效果如下圖：