本示例使用 FV 函数计算某项投资的未来价值，计算时给定每期的利率（APR / 12），投资的总期数（TotPmts），每期的投资额（Payment），已投资的现额（PVal）及付款方式（以数值表示期初或期末付款（PayType））。请注意，因为 Payment 代表支付出去的现金，故其为负数。

Dim Fmt, Payment, APR, TotPmts, PayType, PVal, FVal
Const ENDPERIOD = 0, BEGINPERIOD = 1   ' 付款方式。
Fmt = "###,###,##0.00"   ' 定义金额格式。
Payment = InputBox("How much do you plan to save each month?")
APR = InputBox("Enter the expected interest 年利率.")
If APR > 1 Then APR = APR / 100   ' 确保格式正确。
TotPmts = InputBox("For how many months do you expect to save?")
PayType = MsgBox("Do you make payments at the end of month?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
PVal = InputBox("How much is in this savings account now?")
FVal = FV(APR / 12, TotPmts, -Payment, -PVal, PayType)
MsgBox "Your savings will be worth " & Format(FVal, Fmt) & "."