下面运行程序后，单击命令按钮，输出的结果是 【9】 。
Private Sub Command1_Click()
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
For i=1 To 4
a(i)=i
Next
For i=3 To 6
b(i)=i
Next
s1.= Fun(a)
s2 =Fun(b)
Print "s1 ="; s1; "s2 ="; s2
End Sub
Function Fun( a( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
Fun=t
End Function

投资者自行测定技术方案的最低可接受财务收益率，除了应考虑规定的因素外，还应根据自身的发展战略和经营策略、（）等因素综合测定

A．资金成本

B．历史成本

C．沉没成本

D．机会成本

E．技术方案的特点与风险