有如下一个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