Access計(jì)算公式應(yīng)用-求圓的面積

用Access可以做簡(jiǎn)單的計(jì)算器。因?yàn)関ba可以直接使用很多算術(shù)表達(dá)式。

有很多網(wǎng)友問(wèn)到如何計(jì)算周長(zhǎng)，計(jì)算面積，計(jì)算體積等的設(shè)計(jì)問(wèn)題。

這里以計(jì)算圓的面積作為示例說(shuō)明：

自定義一個(gè)計(jì)算圓面積的函數(shù)：

Public Function area(r As Single)
    Const pi = 3.14159  '定義π的固定值
    Dim s As Double
    s = pi * r * r      '面積計(jì)算公式
    MsgBox "半徑為：" & r & " 的圓的面積為：" & s
End Function

在窗體中調(diào)用函數(shù)：在窗體中，建立一個(gè)文本框控件“text0” 和按鈕“Command2”，按鈕單擊事件代碼為：

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

效果如下圖：