Access計算公式應用-求圓的面積

2017-12-02 11:04:00
tmtony8
原創
4134

用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


效果如下圖:

分享
北京十一选五基本走势