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

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

下面分享几个简单的函数，主要是方便初学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)