【单选题】

有过程如下：

Sub fact (mAs Integer, totalAs Long)
Dim iAs Integer
total = 1
for i = 1 To m
total = total*i
Next i
End Sub
调用它的事件过程如下：
Private SubCommand1_Click ()
Dim totAs Long
Dim aAs Integer
a = Val InputBox (“请输入数据”))
Call fact (a, tot)
Print tot
End Sub
则输入数据5，运行结果为 ______。
A．100
B．120
C．200
D．50