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

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

2017-12-02 11:04:00
tmtony8
原创
2533

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

有很多网友?#23454;?#22914;何计算周长,计算面积,计算体积等的设计问题。


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

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

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
内存占用:7.75MB
PHP 执行时间:0.15
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
波西亚时光下载 弗罗西诺内对恩波利直播 糖果游行走势图 奥格斯堡vs莱比锡红牛预测 龙族幻想激活码 比利亚雷亚尔阵容 阿尔萨德阵容 真爱在囧途 狂野之鹰免费试玩 圣埃蒂安对巴黎圣日耳曼赛程