有过程如下：
Sub fact (m As Integer, total As Long)
Dim i As Integer
total = 1
for i = 1 To m
total = total*i
Next i
End Sub
调用它的事件过程如下：
Private Sub Command1_ Click ()
Dim tot As Long
Dim a As Integer
a = Val InputBox (“请输入数据”))
Call fact (a, tot)
Print tot
End Sub
则输入数据5，运行结果为 ______。

A．100

B．120

C．200

D．50