缺乏维生素B1可能引起下列哪种症状（）。

A.对称性皮炎

B.不育

C.坏血病

D.恶性贫血

E.脚气病

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