在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= (13)
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
(14)
End Function
以上程序的功能是，计算1!+2!+3!+…+n!，其中n从键盘输入，请填空。

有关钻孔灌注桩施工中的固孔应符合的要求，下列说法正确的有（）。

A.承包商应采用钻孔泥浆护壁，以保持孔壁在钻进过程不坍塌（但采用全长护筒者除外）

B.承包商可用膨润土悬浮泥浆或合格的粘土悬浮泥浆作为钻孔泥浆。钻孔泥浆不得污染地下水

C.钻孔泥浆应始终高出孔外水位或地下水位1.0m～1.5m

D.胶泥应用清水彻底拌和成悬浮体，使在灌注混凝土时保持钻孔孔壁的稳定

E.除图样另有规定外，地面或最低冲刷线以上部分，护筒应在灌注混凝土后拔除