有如下一个Sub过程： Sub mlt(ParamArray numbers()) 　　n=1 　　For Each x In numbers 　　　n=n*x 　　Next x 　　Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。

A．12

B．24

C．36

D．48