问题
单项选择题
有过程如下：
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
答案
参考答案：B
解析： 本题难点是实、虚参数传递的问题。tot按ByRef参数传递。子过程的功能是计算 n!，“5!=120”。