某建筑地下1层，地上24层，高度82米，总建筑面积32000平方米，地下1层为车库及设备房，停车位120辆，1至3层为商场，4至12层为写字间，13至24层为住宅，各项消防设施完善。

问：

（1）该建筑地下车库采用机械排烟，其防烟分区面积不应大于多少？

（2）该建筑筒体防烟楼梯间采用机械正压送风，其独立前室能否不设正压送风？

有如下的一个函数过程：
Function fn(ByVal num As Long)
Dim k As Long
k= 1
num = Abs(num)
do while num
k = k * (num Mod 10)
num= num\10
Loop
fn=k
End Function
以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n = CLng(n)
r = fn(n)
Print r
End Sub

A．12

B．6

C．3

D．1