安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access計祘公式應用-求圓的麵積

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

用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


效果如下圖:

分享
? 1999-2019 Office交流網?? 中山市天鳴科技髮展有限公司 粵ICP備10043721號-5 SQL查詢:19
內存占用:10.75MB
PHP 執行時間:0.17
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假