眶内壁骨折的CT表现不包括（）

A.眶内容物向筛窦移位

B.眼内直肌向眶内移位

C.眶内可见积气眶内壁骨折的CT表现眼球发育异常永存原发玻璃体增生症

D.眼内直肌疝入筛窦内

E.筛窦密度增高

有过程如下：
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