access進(jìn)行簡單加減乘除的四則運(yùn)算（函數(shù)的基礎(chǔ)寫法）

有網(wǎng)友問到隨機(jī)輸入兩個(gè)數(shù)，如何計(jì)算他們的乘積，因?yàn)橄胱鲆粋€(gè)類似計(jì)算器的東西。

下面分享幾個(gè)簡單的函數(shù)，主要是方便初學(xué)vba的入門，函數(shù)的寫法。

'求兩數(shù)之積函數(shù)
Function 求積(m As Double, n As Double)
    求積 = m * n
End Function

'求兩數(shù)之和函數(shù)
Function 求和(a As Double, b As Double)
    求和 = a + b
End Function

'求兩數(shù)之差函數(shù)
Function 求差(a As Double, b As Double)
    求差 = a - b
End Function

'求兩數(shù)之商函數(shù)
Function 求商(a As Double, b As Double)
    If b = 0 Then
        求商 = MsgBox("除數(shù)不能為0!")
    Else
        求商 = a / b
    End If
End Function

調(diào)用函數(shù)，直接填寫兩個(gè)參數(shù)來獲得結(jié)果

Private Sub 調(diào)用()
    Dim x As Double
    Dim y As Double
    '獲取兩個(gè)因數(shù)
    x = InputBox("第一個(gè)數(shù)")
    y = InputBox("第二個(gè)數(shù)")
    '調(diào)用“求積”計(jì)算兩個(gè)數(shù)的積
    MsgBox x & "×" & y & "=" & 求積(x, y)