女，49岁，因子宫肌瘤， * * 出血先后在某医院输注ABO同型全血2次，共800ml，两次输血后均出现全身荨麻疹，且有广泛性皮肤瘙痒。此次入院准备作子宫切除需要输血，最好选择下列何种血制品

A．库存全血

B．红细胞悬液

C．浓缩红细胞

D．洗涤红细胞

E．新鲜全血

有如下的一个函数过程：
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