某工业架空热力管道工程由型钢支架工程和管道工程两项工程内容组成。由于现行预算定额中没有适用的定额子目，需要根据现场实测数据，结合工程所在地的人工、材料、机械台班价格，编制每10t型钢支架和每10m管道工程单价。

若工程所在地综合人工日工资标准为22.50元，每吨型钢支架工程消耗的各种型钢为1.06t(每吨型钢综合单价3600元)，消耗其他材料费为380元，消耗各种机械台班费为490元，试计算每10t型钢支架工程的单价。
(管道工程)

在窗体上画一个名为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= (9)
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
(10)
End Function
以上程序的功能是：计算11 +2! +3!+…+n!，其中n从键盘输入，请填空。