office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access进行简单加减乘除的四则运算(函数的基础写法)

2020-11-18 08:00:00
tmtony8
原创
149

有网友问到随机输入两个数,如何计算他们的乘积,因为想做一个类似计算器的东西。

下面分享几个简单的函数,主要是方便初学vba的入门,函数的写法。

'求两数之积函数
Function 求积(m As Double, n As Double)
    求积 = m * n
End Function

'求两数之和函数
Function 求和(a As Double, b As Double)
    求和 = a + b
End Function

'求两数之差函数
Function 求差(a As Double, b As Double)
    求差 = a - b
End Function

'求两数之商函数
Function 求商(a As Double, b As Double)
    If b = 0 Then
        求商 = MsgBox("除数不能为0!")
    Else
        求商 = a / b
    End If
End Function



调用函数,直接填写两个参数来获得结果

Private Sub 调用()
    Dim x As Double
    Dim y As Double
    '获取两个因数
    x = InputBox("第一个数")
    y = InputBox("第二个数")
    '调用“求积”计算两个数的积
    MsgBox x & "×" & y & "=" & 求积(x, y)

    分享