在irr函数中，常量和区域数组怎样混合输入计算？

返回一个 Double 数据类型值，指定一系列周期性现金流（支出或收入）的内部收益率。

参数：
ValueArray
必选。Double 数组，指定现金流的值。数组必须至少包含一个负值（支出）和一个正值（收入）。

Guess
可选。对象类型，指定预计的 IRR 函数返回值。如果省略，则 Guess 为 0.1 (10%)。

' Define money format.
Dim MoneyFmt As String = "###,##0.00"
' Define percentage format.
Dim PercentFmt As String = "#0.00"

Dim values(4) As Double
' Business start-up costs.
values(0) = -70000
' Positive cash flows reflecting income for four successive years.
values(1) = 22000
values(2) = 25000
values(3) = 28000
values(4) = 31000

' Use the IRR function to calculate the rate of return.
' Guess starts at 10 percent.
Dim Guess As Double = 0.1
' Calculate internal rate.
Dim CalcRetRate As Double = IRR(values, Guess) * 100
' Display internal return rate.
MsgBox("The internal rate of return for these cash flows is " &