用一个子程序求2！+3！+4！的值的程序。

方法一：

定义一个算阶乘的函数，然后算2！+3！+4！
Public Function Jc(n As Integer)
Dim tmp As Double
tmp = 1
For i = 1 To n
DoEvents
tmp = tmp * i
Next i
Jc = tmp
End Function

Private Sub Command1_Click()
msgbox jc(2) + jc(3) + jc(4)
End Sub

方法二：
Private Sub Command1_Click()
Dim tmp, s, i, n
s = 0
n = 4
While n >= 2
DoEvents
tmp = 1
For i = 1 To n Step 1 ''算阶乘的循环，先算4！,然后计算3！，最后加到2!.
DoEvents
tmp = tmp * i
Next i
s = tmp + s
n = n - 1 '很关键
Wend
'这里用到while和for 循环.
MsgBox s
End Sub
'----------------------
'建立一个vb窗口，加入一个command1,然后在代码窗口写入以上代码，运行程序。点击command1，即可测试！

这些都是很基础的，要自己想啊。。。