在VB中，计算1到n的阶乘之和的公式为：
Dim n As Integer = 5 ' 以n=5为例
Dim sum As Long = 0 ' 阶乘之和初始值为0
Dim fact As Long = 1 ' 阶乘初始值为1
For i As Integer = 1 To n ' 循环计算1到n的阶乘
fact *= i ' 求i的阶乘
sum += fact ' 将阶乘累加到阶乘之和中
Next i
MsgBox(sum) ' 输出阶乘之和
以上是一个简单的VB代码示例，通过循环计算1到n的阶乘，将每个阶乘累加到阶乘之和中，最终得到1到n的阶乘之和。当n较大时，要注意阶乘可能溢出Long类型的范围，需要使用更高精度的数据类型或者类库来处理。
在窗体上放一个命令按纽，计算结果将在窗体上输出，代码如下（直接拷贝）
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = 2
b = 4
c = 6
nn a, b, c
End Sub
Sub nn(a As Integer, b As Integer, c As Integer)
Dim i As Integer, j As Integer, k As Integer, s1 As Integer, s2 As Integer, s3 As Integer
s1 = 1
s2 = 1
s3 = 1
For i = 1 To a
s1 = s1 * i
Next i
For j = 1 To b
s2 = s2 * j
Next j
For k = 1 To c
s3 = s3 * k
Next k
Print "2!+4!+6!=" & s1 + s2 + s3
End Sub
