下面程序段，运行后的结果是（ ）。　Private Sub Commandl_Click( )　　Dim b%(1 To 4)，i%，t#　　For i=1 To 4　　　b(i)=i　　Next i　　t=Tof(b( ) )　　Print"t="；t，　End Sub　Function Tof(a() As Integer)　　Dim t#，i%　　t=1　　For i=2 To UBound(a)　　　　　　t=t * a(i)　　　　Next i　　　　Tof=t　　End Function

A．RunSQL

B．RunApp

C．Requery

D．Quit

价值工程分析阶段主要工作是（）。

A．功能定义

B．功能审批

C．功能创新

D．功能评价

E．功能整理